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(54) Method and apparatus for finding and selecting a desired data item from a large schedule 
of data items using a TV set and a controller similar to a TV-remote-control 



(57) An apparatus and method for presenting a 
viewer with an overall representation of the present 
number of entertainment programs available for selec- 
tion given one week of program schedule data for 300 
or more channels and one or more filtering criteria to 
limit the number of items represented in the overall rep- 
resentation. Sequentially applied filters will filter the 
group of program schedule data items that has at least 
100,000 half hour time slots offered by 300 channels 
each week into a smaller subgroup where individual 



consideration of each item of the subgroup can be made 
in a reasonable time. A set top box drives the display of 
overall representations or results of filtering criteria on 
a commercial TV set. Once a reasonable sized sub- 
group is obtained, other displays provide specific infor- 
mation of the program offerings of the subgroup. Selec- 
tion of the filtering criteria and selection from within a 
subgroup is interactively made by a viewer through the 
use of a controller that looks and operates very much 
like a TV remote control. This makes the interaction fa- 
miliar easy and predictable. 
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Description 
Technical Field 

The invention concerns a method and apparatus for subjecting a large schedule of data items having multiple 
attributes to consecutive selection criteria in order to reduce the number of individual programs to a manageable group 
which can be visually searched for a desired data item having a selected subset of the attributes, and more particularly 
to an apparatus and method which use an interactive control having directional buttons and a select button that are 
used in conjunction with an interactive display viewed on a normal television set to select the desired data item. 

Description of the Prior Art 

Presently there are known methods for reducing a large quantity of data into a manageable set of data which can 
be visually searched for a desired item by a decision maker. One example of such a large quantity of data is a directory 
of a fixed drive of a computer system. Methods implemented through interactive graphical user interfaces for personal 
computers and workstations display and reduce disk drive directories to root directory displays which typically show 
root level files and one or more branch subdirectories for the user's selection. Upon selection of a subdirectory, usually 
by a mouse, the display typically shifts showing files of the selected subdirectory and sub-subdirectories for further 
selection. The subdirectory display is often too big to fit on the screen, so interactive scroll bars are typically provided 
so the display may be controlled by a mouse. Using the mouse and the scroll bars, a user may work down the directory 
tree structure until the desired file is found. Such graphical user interfaces are common for computers and monitors 
where visual definition is typically at least 640 x 480 pixels for each display Such techniques might be used in homes 
to access databases of useful information, such as airline schedules, television programming schedules and movie- 
on-demand catalogues. Unfortunately, each home does not have a computer or work station with 640x480 pixel defi- 
nition which could take advantage of such existing databases. Further, the NTSC television set which almost every 
home has in its living room has relatively low viewing definition compared to 640 x 480 pixels or more per screen 
definition of computer monitors. Moreover, the typical home television set is not connected to a mouse^ which is not 
an appropriate pointing device for the living room, rather most television sets have controls on control panels and/or 
on a remote controls. If just a fraction of these home television sets were used to find and select airline ticket resen/a- 
tions, programs to watch on 300 hundred or more channel cable television services, or pay-per-view movies from a 
vast collection, the profitability of the service providers and the satisfaction of the users would both be improved. The 
300 plus channels mentioned, may use any type of transmission scheme that will deliver information via a cable or 
wireless path and includes but is not limited to time division multiplexed channels, frequency division multiplexed chan- 
nels and packet data multiplexed channels. 

One known approach for the TV programming schedule is to display the presently showing programs along with 
the next subsequent programs for the next hour or so, on what is referred to as a preview channel. Because this is 
more information than can be legibly displayed on one television screen at once, the preview channel display often 
scrolls through all the channel offering for the present time and the near future. For a sixty channel system, one complete 
scrolling takes about three minutes. At such a rate, a one hundred channel cable service would take five minutes and 
the future three hundred plus channel cable services would take 15 minutes. Needless to say, three minutes is a long 
time, but acceptable because breaks between programs are about that long. Five and fifteen minutes time periods 
though represent a substantial portion of a 30 minute program and are simply too long to expect a TV viewer to wait. 
The alternatives of speeding up the scrolling rate or using smaller size letters for descriptions are not practical either 
because either of these actions reduces the ability of the viewer to read and understand the schedule. Thus, there is 
a need in the art for a method and apparatus that allows a viewer to quickly find and select a desired data item from 
a large schedule, in this case a TV program for viewing from a TV programming schedule for 300 plus channels over 
the ensuing hours or even days. There is a similar need for a method and apparatus, very similar to the TV program 
selector, for finding and selecting a movie to order from movies-on-demand, or an airline flight(s) for a trip. It would 
further be desirable to use a method similar to the TV program selector to find and select a file in storage assets 
accessible by the apparatus to be executed, updated or deleted as part of file maintenance. 

It is an object of the present invention to provide a view of a large schedule of data items and interactive selections 
of subgroups of the large schedule of data items in order to arrive at a screen display with sufficiently small number of 
items and sufficiently legible descriptions of each item to provide a viewer with an opportunity to make a reasoned 
selection therefrom. 

It is another object of this invention to provide a method for interactively selecting a data item from a large schedule 
of data items by means of sequentially applying different filtering criteria using an interactive control having an operation 
appropriate for use with a television set. 
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Summary of the Invention 

In another aspect of the invention, the aforementioned objects may be achieved by providing a method for a home 
television viewer to interactively select a data item from a large schedule of data item having multiple attributes. The 
method includes a step of receiving the large schedule of data items. The received schedule of data items is stored 
locally in a database format in order to expedite later filtering and retrieval. Next, the schedule of data items is filtered 
into a subgroup of the schedule of data items according to attributes selected by to interactive viewer inputs. The 
resulting subgroup of the schedule data items is displayed for the viewer's inspection. The user then interactively 
selects a data item from the subgroup of data items viewed on a television screen. 

Briefly stated, in accordance with one aspect.of the invention, the aforementioned objects are achieved by providing 
an apparatus for selecting an item from a large group in a system having display means and interactive movable 
pointing means for specifying a location in the display means and making a selection at a specified location. This 
apparatus includes a filtration means including subgroup specifiers in the display means and is responsive to selection 
of a subgroup specifier by the pointing means for filtering the list to produce the subgroup specified by the selected 
subgroup specifier; means for displaying representations of group items belonging to at least a portion of the subgroup 
in the display means: and group item selection means for selecting a group item by selecting the representation thereof 
in the display in response to the pointing means. 

In yet another aspect of the invention, the aforementioned objects may be achieved by providing a method for a 
viewer to interactively select a program. The method includes a step of receiving program schedule data for at least 
300 individual channels for a time period of at least a week. The received program schedule data is stored locally in 
a database format in order to expedite later sorting and retrieval. Next, the program schedule data is filtered into a 
subgroup of the program schedule data in response to interactive viewer inputs. The subgroup of the program schedule 
data is displayed for the viewer's inspection. The user then interactively selects a program from the subgroup of program 
schedule data for viewing on a TV screen, or alternatively for recording by an appropriate program recording device. 

Brief Description of the Drawing 



FIG. 1 is a pictorial of a television set connected through a set top box to a cable carrying the program to be 
selected and a controller for selecting that program. 
^0 FIG. 2 is a simplified block diagram of the set top box. 

FIG. 3 is a pictorial of a controller as shown in FIG. 1 . 

FIG. 4 is a pictorial of a top most selection interactive display. 

FIG. 5 is a pictorial of a second level selection interactive display. 

FIG. 6 is a pictorial of a third level selection interactive display. 
35 FIG. 7 is a pictorial of a first level selection query display. 

FIG. 8 is a pictorial of a second level selection query display. 

FIG. 9 is a pictorial of another third level selection query display. 

FIG. 10 is a pictorial of a display showing a subgroup of programs meeting the Sports, All and On Now sorting 
criteria. 

FIG. 11 is a pictorial of a of the display showing the subgroup of programs meeting the Sports, All and On Now 
sorting criteria along with a window having a preview of the highlighted program. 

FIG. 12 is a pictorial of a display showing a second level selection interaction display similar to FIG. 5. 

FIG. 13 is a pictorial of a two-dimensional interactive grid display with very many program data items shown in 
reduced representations. 
•^5 FIG. 14 Is a pictorial of a third level selection query display, similar to FIG. 9. 

FIG. 15 is a pictorial of a two-dimensional interactive grid display filtered down to a manageable number of data 
items. 

FIG. 16 is a pictorial of a first alphanumeric Interactive display. 

FIG. 17 is the same display as FIG. 14 except that the highlighted interactive area is at a different location. 
FIG. 18 Is a pictorial of a second alphanumeric interactive display. 

FIG. 19 is the same display as FIG. 16 except the highlighted interactive area is at a different location. 
FIG. 20 is a pictorial of a third alphanumeric interactive display. 

FIG. 21 is the same as FIG. 18 except that the highlighted interactive area Is at a different location. 
FIG. 22 is a pictorial of a fourth alphanumeric interactive display. 

FIG. 23 Is a pictorial of a two dimensional interactive display with logical third dimensional stacks for row and 
column intersections having multiple entries therein. 
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Detailed Description 

Referring now to FIG. 1 , a television set (TV) 10 is connected to set top box (STB) 12 via interconnecting cable 
14. STB 12 is also connected to cable 16 which carries at least one cable program. The TV 10 is any standard TV 
5 such as an NTSC, a high definition, or some other standard commercial type for home use. A controller 20 is linked 
to STB 1 2, preferably via a free space optical link 22 for controlling the operation of STB 1 2 in order to select a program 
for viewing. 

Referring now to FIG. 2, STB 12 will be described in greater detail. The STB 12 has a cable interface 30 that 
selects and converts the incoming signals on cable 16, whether they are digital signals, analog signals, or packet 

70 signals, to signals that are compatible with the TV 10. The cable interface 30 is connected by bi-directional bus 32 to 
CPU 34. Bi-directional bus 32 carries digital information received over cable 1 6 for use by CPU 34 and digital information 
transmitted from CPU 34 to cable interface 30. If cable 16 is a bi-directional cable, some of the information from CPU 
34 will be processed through cable interface 30 to cable 16. 

In addition to bi-directional bus 32, CPU 34 is connected to ROM 38 and RAM 40 via a memory bus 36. ROM 38 

75 contains an operating program that is executed by CPU 34 to provide most of the functionality of the STB 12. RAM 
40, among other things, provides storage space for intermediate results of the operating program as executed by CPU 
34. RAM 40 provides storage for data that is received from cable 16 and filtered in response to the operating program 
and viewer inputs from controller 20 (shown in FIG. 1 ). If further storage is needed for data, larger RAM devices and/ 
or mass storage devices such as disk drives, may be also connected bi-directional bus 32 (not shown). To receive 

20 viewer input, CPU 34 is connected to controller interface 44 via bus 42, and to provide feedback to the viewer, CPU 
34 is connected to and drives STB display 48 via bus 46 with channel related information. 

FIG. 3 illustrates a preferred embodiment of the controller 20. Controller 20 is designed to look and operate like a 
standard remote control of a TV or a video cassette recorder (VCR). Controller 20 has a numeric keypad 50 having 
number keys 0-9. Controller 20 has an up arrow 52, a down arrow 54, a right pointing arrow 56, a left pointing arrow 

25 58, a double up arrow 60 and a double down arrow 62. Controller 20 also has a select (^) button 64, a cancel (X) 
button 66 and a query (?) button 68. All interactions with the interface provided by the present invention are controlled 
by various sequences of these 1 9 buttons of the controller 20. Further, the result of actuating one of these buttons will 
be similar the results of a similar action of a standard TV or VCR remote control, so its use will be familiar predictable 
and intuitive to the viewer using it. 

30 There are two broad classes of graphical components used in the interface of the present invention; those used 

by the viewer to select a desired data view or to apply a filter to the information being displayed, such as FIG. 4; and 
those components used to actually display the information through which the viewer will progress in order to make a 
selection of a specific item, such as FIG. 6. For example, the viewer might view the schedule of TV programs for the 
next few hours (all channels), and filter the display to show only sports, basketball games in particular These choices 

35 fall into the first class. Once the display of all basketball shows for the next few hours has been selected, the viewer 
may progress through it reviewing a text or video digest of each program as selected by the controller 20. Selection 
of a specific program would typically lead to an action such as videotaping the show or setting an alarm to remind the 
viewer that the desired program is coming up. The navigation and selection sequences to find and select the desired 
program are examples of the use of the second class of graphical components. 

"^0 Note, that in both cases the viewer is required to navigate through multiple graphic displays in order to ultimately 

select a desired program. The interfaces are kept conceptually and visually distinct in the interface according to the 
present invention because they serve different purposes and the viewer is reminded of this by their appearance. In 
addition, the information involved in the view selection components, i.e.. the first class, falls naturally into the form of 
hierarchical menus: short lists with complex substructure. In contrast, the data display, i.e., the second class, compo- 

^5 nents must be able to handle large schedules and arrays of information, which are essentially flat data with simple 
substructure. 

Additionally, there is a display component in most displays referred to as a 'flame', which functions as a status 
display. The frame is used to give the viewer some context (what view am 1 displaying?), as well as a brief summary 
of the presently selected item's characteristics (what item do I currently have selected?). Typically the latter would be 
50 the item's full name and useful information such as program start and stop times. The frame will be described further, 
later. 

Referring now to FIGs. 3 and 4, a top or beginning level display 400 of the viewer interface for use with controller 
20 as it appears on the viewer's TV 10 (shown in FIG. 1) during normal operation. It is depicted as a file card menu 
402 having a tab labeled "Begin". On file card menu 402 are interactive buttons labeled Movies (on Demand) 404, 
Last Movie 406. Options 408, TV 410, TV Now 412, Last TV 41 4, Shopping 416, and Last Shop 41 8 which when 
selected by means of the controller 20 cause the next relevant display to be shown along with some sorting and/or 
filtering to be performed on the data stored in RAM 40 (shown in FIG 2). When the file card menu 402 first appears, 
an active area, where a selection may be made, is highlighted. This active area may be moved by actuating the arrow 
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buttons 52-56 and double arrow buttons 60, 62 of controller 20. The file card menu 402 is surrounded by a frame 420. 
the top of which indicates the designation of the active area currently highlighted. Once an active area has been high- 
lighted, a selection is made by actuating the select {^) button 64 in FIG. 4, the TV button 410 is shown to be active: 
by actuating the select (^) button 64, the next display 500 shown in FIG. 5 appears. This appearance is a logical 
5 overlaying of the display 500 over the display 400. Although display 400 is not visible while any logically overlaying 
display is appearing on the screen of the TV 10, display 400 will become visible again if all of the logically overlaying 
displays are canceled, i.e. by actuating the cancel (X) button 66. Thus, until a program is selected for real time viewing, 
it is possible for the viewer to work his or her way back to the display 400 by actuating the cancel (X) button the 
appropriate number of times. 

''^ FIG. 5 shows a second level display 500 which is depicted as a file card menu 502 labeled "TV", which appears 

to overlay and occlude all of file card menu 402 except for the label "Begin". The label TV indicates that the items that 
can be accessed are TV shows, such as dramatic series, situation comedies, serials, regular variety shows, game 
shows, sports, and so forth. Since movies and shopping were topics of other interactive buttons, these types of pro- 
grams may be filtered out in whole or in part. File card menu 502 has interactive buttons labeled On Now 504, Week- 

15 days 506, Coming Up 508. Weekend 510, and Search 512. As with the file card menu 402, file card menu 502 has 
an active area that can be moved by the viewer by operation of the arrow buttons 52-56 and double arrow buttons 60, 
62 of controller 20 (shown in FIG. 3). Each of the interactive button represents another filtering that will be performed 
if it is selected. In FIG. 5, the On Now button 504 is highlighted, and if selected by actuating the select (^) button 64, 
causes a third level display shown in FIG. 6 to appear and a further sorting an/or filtering of the data stored within RAM 

20 40 (shown in FIG. 2). 

Referring now to FIG. 6, display 600 shows what is on at the present time, which in this illustration is 6:30 p.m. A 
reduced representation 602 of all television shows that are on at the present time appears in FIG. 6. The reduced 
representation 602 presents each program that is presently on as a card in a tightly cascaded set of cards. The cards 
may be gray shade coded to distinguish between news shows, sport shows, dramatic shows, comedy shows, docu- 

25 mentary shows and so forth. Those skilled in the art will recognize that color would be preferable for color television 
sets, and a method and apparatus according to the present invention using color to differentiated program types in the 
reduced representation 602 is contemplated. Thus, using visual coding within the reduced representation 602 would 
allow a sports program to visually stand out from the non-sports TV programming in the example shown. Up arrow 52 
and Down arrow 54 respectively move a selection window 604, which is slightly wider than the items displayed in 

30 reduced representation, up and down the reduced representation 602 of the On Now subgroup in single steps. Motion 
of the active area along the reduced representation 602 is one dimensional, either up or down. The up arrows 60 and 
the down arrows 62 move this selection window 604 respectively up and down the reduced representation 602 in 
increments of six. The individual items visible and located within the selection window 604 represent a further subgroup 
of six programs out of the reduced representation 602 On Now subgroup. This six program subgroup of the selection 

35 window 604 is displayed in larger form in a grid display 606 located next to reduced representation 602. This larger 
form allows the viewer to read the titles of the programs presently in grid display 606. The visible coding, i.e. gray 
shade coding or color coding, of each item is retained in the larger form in grid display 606 to aid the viewer differentiate 
between the various types of programming offered. 

Within selection window 604 and grid display 606 are active areas 605, 607 that high light one item in their respective 

40 portions of display 600. The active areas 605, 607 move in coordination with each other in response to the Up arrow 
52 and the Down arrow 54. When Up arrow 52 or Down arrow 54 require the active areas 605 and 607 to move above 
or below the selection window 604 and grid display 606, a paging occurs which moves the selection window up six or 
down six. When an item is located within active areas 605, 607, further information, such as the TV channel call sign, 
the cable channel number, and the exact start and stop times, is retrieved from the programming database stored in 

■^5 RAM 40 and displayed in the top of a frame 610 of display 600. If the select (^) button 64 is actuated at this time, a 
preview of either a short text description or a brief still or motion video replaces the grid display 606. The data for these 
previews are stored in RAM 40. A second sequential actuation of the select {^) button 64actuaHy selects the highlighted 
program in the active area 604 of reduced representation 602 and formerly highlighted in grid display 606. If the up 
arrow 52 or the down arrow 54 is actuated the respective preview for the next program item up or down from the 

50 previous previewed item is selected. The information displayed in the top of the frame 610 will change to the next 
program item up or down also. Actuation of the cancel button 66 returns the viewer to the previous arrangement of 
display 600. The bottom of the frame 61 0 lists the characteristics of the display 600, which are also retrieved from RAM 
40. If the query (?) button 68 is actuated, the grid display 606 will be replaced by a generalized help menu. This 
generalized help menu has many buttons, as explained below, one of which is a view button. If the view button is 

55 actuated, the generalized help menu is replaced with the previous select (i.e. filter) view. 

Referring now to FIGs. 3, and 7 a selection of a program by category will be described. Actuation of the query (?) 
button 68 of controller 20 causes display 700 to appear on the screen of TV 10 (shown in FIG. 1). On display 700 has 
a help button 702, a categories button 704, a view button 706, a begin button 708, a favorites button 710, and a user 
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button 712. An active area, shown on categories button 704 is moved by the arrow buttons 52-58. The function of the 
view button 706 has been discussed in regard to FIG. 6 and wilt not be repeated here. Actuation of the help button 
702 causes a menu of specific help functions to be displayed. Actuation of the begin button 708 causes the beginning 
nrienu to be displayed, i.e. it takes the viewer back to the beginning of the selection sequence. Actuation of the favorites 
5 button 710 brings up a list of favorite programs for the present timeslot, which may either be accumulated by the CPU 
32 from viewing data or may be entered by the viewer or viewers. Actuation of the viewer button 712, which causes a 
display to appear where a viewer may interactively enter his or her status as the principal viewer. This information is 
used to determine, display a slate of favorite programs customized for each viewer. Actuation of the categories button 
704 causes a further display 800= which is shown in FIG. 8, to replace display 700 on the screen of TV 10. 
^0 Referring now to FIGs. 3, 8 and 9, display 800 has numerous buttons 801 , 802, 803, 804, 805, 806, 807, 808, and 

809 corresponding to Favorite, Information, Entertainment, Movies, Sports. News, Children, Series and More catego- 
ries of programming. The buttons 801 -809 may be have an active area moved among them using arrows 52-58, or the 
numeric keypad may be used as a set of hot keys to move the active area to the desired category immediately. The 
buttons 801-809 are laid out in a 3x3 row and column arrangement just the same as the 1-9 keys of keypad 50 are 
IS arranged. Thus, without numbering, intuitive hot key navigation is possible. For example to move the active area to 
the button in the third column and third row, i.e. button 809, the key in the third column and the third row, i.e. the numeral 
9, of keypad 50 is actuated. The button 809 unlike the other buttons which subsequently provide narrower choices, 
gives another display of buttons for further category choices (not shown). If the active area is around Sports button 
805 as shown in FIG. 8, and the select (^) button 64 is actuated, the display shown in FIG. 9 would appear. FIG. 9 is 
20 arranged with selection buttons 901-909 in a 3x3 arrangement, similar to that of FIG. 8. Movement of the active area 
by arrows 52-58 or by hot key is available in FIG. 9, as in FIG. 8. Buttons 901-909 correspond to Baseball, Football, 
Basketball, Soccer All, Hockey, Golf, Racing and Other respectively. Except for All button 905, each of the buttons in 
FIG. 9 represents a narrower subgroup of the overall category of sports. Actuating All button 905 causes display 1000, 
shown in FIG. 10, to replace, i.e. logically overlay, display 900. 
25 Referring now to FIG. 10, a filtered display for TV programs, that are On Now, for 6:30 p.m. local time as shown 

in FIG. 10, that are Sports programs showing All categories in reduced representation 1002 is shown. Reduced rep- 
resentation 1 002 has so few entries that characteristics of the individual cards that were hidden previously by the sheer 
number of programs represented can now be discerned. For example, menu card 1 003 representing the program This 
Week in the NBA is shorter on the left side than menu card 1004 representing the program Senior PGA Golf The 
30 reason for that difference is that the program This Week in the NBA starts at 6:30 p.m., while the program Senior 
PGA Go/f started at an earlier time as designated by the double left pointing arrows before the title of Senior PGA 
Golf in selection window 1006. Since This Week in the NBA and Senior PGA Goy/f both end at the same time, the 
right sides of their reduced representations 1003 and 1004 end at the same location. Movement or navigation of the 
active area 1005 along the reduced representation 1002 is by means of controller 20 the same as in FIG. 6. Each of 
the six titles shown in selection window 1006 has a respective rectangular region 1010-1015 thereafter The rectangular 
regions 1010-1015 are shaded differently according to the type of sports program with which they are associated. 
These different shades of gray, or different colors if the display is shown on a color TV, are a visual key to the type of 
sport that corresponds to each of the six titles. Actuating the select {^) button 64 of controller 20 causes display 1106, 
shown in FIG. 11 , which is a text preview of the program highlighted by the active area, to overlay selection area 1006. 
As mentioned above, actuating the select (^) button 64 at this point will cause CPU 34 to instruct cable interface 30 
(shown in FIG. 2) to select that TV program for viewing. 

Referring again to FIG. 10 if the status of the method and apparatus is the same as it was just after the selection 
that caused display 1000 to be shown was made, as described in the previous paragraph, and if the query (?) button 
68 is actuated, then the display 700 shown in FIG. 7 with various selections will again be displayed. Further if view 
button 706 is actuated, display 1200 as shown in FIG. 12 and its filter selections will logically over lay display 700. 
Display 1200 has numerous interactive buttons: On Now 1202, Coming Up 1204, Search 1206, Weekdays 1208 and 
Weekend 1210. Since the All Sports category has been selected previously, if the active area of display 1 200 is moved 
to highlight the Coming Up button 1204 and the button 1204 is actuated, display 1300, shown in FIG. 13 will appear 
and over lay display 1200. 

50 In display 1300, two coordinate axes are shown which are respectively labeled with two attributes of the of the 

selected subgroup of data items. The two attributes shown in display 1300 are channels and timeslots for the next 24 
timeslots, i.e. 12 hours, coming up. Since the all sports category has been selected! each sports program showing on 
one of the 300 plus channels within the next 12 hours will be represented in display 1300. Each sports program up- 
coming is represented by a rectangular 'card' located in the row corresponding to the channel carrying the program 
and in the column(s) representing the timeslot(s) when it will be shown. Each 'card' is a color coded, reduced repre- 
sentation of the data item for its respective program. The viewer may move the active area 1302 among the cards 
using the up and down arrows 52, 54 and right and left arrows 56. 58 for movement vertically and horizontally, respec- 
tively. As can be seen from display 1300, there are still too many data items in the subgroup to individually consider 
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in a reasonable annount of tinne, so further filtering, either by a shorter time period, i.e. On Now, or a narrower category, 
i.e. basketball, is needed. To change to a narrower category, the viewer presses the query (?) button 68 which causes 
display 700 (shown in FIG. 7) to be displayed. Next, categories button 704 is selected which causes display 900 (shown 
in FIG. 9) to be displayed. Next, basketball button 903 is selected which causes display 1 500 of FIG . 1 5 to be displayed. 

5 The Coming Up time filter of FIGs. 1 2 and 1 3 has not been changed, so display 1 500 shows the basketball programs 
coming up in the next 1 2 hours. As can be seen, the two-dimensional grid display 1 500 contains approximately sixteen 
programs, which is sufficiently small to review each item individually in a reasonable time period. Moving active area 
1502 around two-dimensional grid display 1500 with the up and down arrows 52, 54 and/or the right and left arrows 
56, 58, causes the title and channel of each program to be displayed in the top of the frame of display 1500 to assist 

?f the reviewing and selection process. For example, the program highlighted by active area 1502 is "This Week In the 
NBA" and it is showing on CNN. Thus, by selective filtering the unwieldly display 1300 of programs shown in FIG. 13 
is reduced to a manageable handful of display 1 500, which the viewer can navigate through individually in a reasonable 
time. 

Referring now to FIGs. 16-23, another aspect of the present invention will be described. In FIG. 16 and the re- 
maining figures, a longer period of time is selected other than the one and a half hours or so retrieved by the On Now 
selection. For example, if the viewer wishes to look at the programming available for the rest of the week in order to 
select something to record on a VCR (not shown). Actuating the button having the number zero (0) of the keypad 50 
while watching a program causes the data view menu selection card, such as 900 of FIG. 9, to appear at the point in 
the menu-display hierarchy where the last selection was made. Actuating the zero (0) button again moves the viewer 
towards the broadest data view menu 400 of FIG. 4, and the viewer may stop at any display in order to change time 
or subject matter categories. 

Thus if a viewer were watching This Week in the NBA, and wanted to find a program of interest that is on later, 
the viewer would first actuate the zero (0) button of keypad 50 which would bring up the display of FIG. 10. Actuating 
the zero (0) button four more times takes the viewer through displays 900, 800, 700 and 500 of FIGs. 9, 8, 7 and 5 
25 respectively. To get a specific program title, the search button 509 is actuated, which causes FIG. 16 to logically overlay 
the display 500. FIG. 16 shows a first display 1600 of an interactive alphanumeric selection sequence. First, all alpha- 
betic titles are sorted into groups of five or less. If, for example, Nova was the title of the desired program, the active 
area would be moved from its initial position (either at the top of the display or at the last group selected) to the group 
of letters containing the letter N using the up arrow 52 or the down arrow 54 as shown in FIG. 17 followed by actuation 
30 of the select (^) button 64. This sequence would cause FIG. 18 to logically overlay FIG. 17. In FIG. 18, the active area 
is moved from its initial location at M to the location ofN as shown in FIG. 17 followed again by actuation of the select 
(^) button 64 causes the display 2000 of FIG. 20 to overlay FIG. 19. In display 2000 are single instances of the first 
two letters, such as NYPD Blue is the only instance of N followed by Y, and multiple instances of the two letter string 
as denoted by the double right pointing arrows by NO. To continue the search for Nova, the active area is moved to 
the line containing NO of display 2000 as shown in FIG. 21 using the down arrow 56 and actuating the select (^) 
button 64, which causes display 2200 of FIG. 22 to overlay display 2000. Now, Nova is the only instance of a program 
beginning with NOV, so the entire title A/oi^a appears in FIG. 22. By moving the active area to the line labeled NOVA 
in display 2200 and actuating the select (^), button 64 causes the display 2300 shown in FIG. 23 to overlay display 
2200 with a schedule of times and channels for the program series Nova. 
40 FIG. 23 is a one week schedule that is laid out as a logical three dimensional gnd. The days of the week are 

displayed along one side, in this case vertically along the left side, of the display 2300. Time of day is displayed along 
a perpendicular side, in this case horizontally across the top, for a twenty-four hour period. Thus, if an episode of Nova 
is scheduled at 8:00 p.m. on Sunday, a box of contrasting shade will be located in the intersection of the Sunday row 
and in the 8:00 p.m. column. The active area 2302 can be moved horizontally by arrows 56, 58 and vertically by arrows 
45 52, 54 of keypad 50. If there are multiple occurrences of Nova on a particular night at a particular time, that fact is 
shown by a box, located at the intersection of the row of that day and the column of that time, having an asterisk (*) 
located in the box. The asterisk (*) indicates the presence of a logical stack of multiple programs of Nova appearing 
on competing channels, such as occurs on Wednesday night at 8:00 p.m. To move or navigate through a stack of 
programs (or stack of episodes of programs with the same name, for example) on a particular day at a particular time 
slot, the viewer uses the double up arrows button 60 and the double down arrows button 62 for this third degree of 
freedom. Because the display 2300 may require greater visual discrimination than program title as a matter of course, 
the frame information window 1 904 is larger than usual for display 2300. Further, frame 2304 is annotated with arrows 
indicating the existence of program episodes above or below the active areas' position in the stack. If the cable 1 6 has 
access to 300 plus 'channels' of programming, it is conceivable that some programs, such as Nova will be offered by 
55 more than one channel at the same time. As described previously, once the viewer has moved the active area to a 
particular entry in two or three dimensions and actuates the select (^) button 64, a selection is made. In this case, the 
selection sets an alarm to record a specific channel at a specific time at some day in the near future. 

Referring back to FIGs. 1 and 2, overall operation of the apparatus of the invention is described. Program schedule 
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data is supplied via the cable 1 6. The program schedule data is either transmitted periodically and the STB 1 2 receives 
this program schedule data and stores it in RAM 40. Alternatively, all or part of the program schedule data could be 
dynamically requested and received by STB 12, which stores it in RAM 40. Program data such as this is commercially 
available from TVData, Inc. and other similar concerns. The data or records of the program schedule data are in a pre- 
arranged format, such as Microsoft Access or some other similar database format, to facilitate rapid storage, sorting 
and retrieval by CPU 34. Each record of a TV program has its date of appearance, its time of appearance, its title, its 
channel and/or network, its categorizations, and a textual or visual preview (if any). A listing of a prototype program 
that sorts, displays and interactively responds to a viewer's input is shown in the CPU program listing given below. 
This listing is in Visual Basic programming language of Microsoft Corporation. 

The Visual Basic prototype program consists of a collection of forms, each form having its own set of event handlers. 
In this case, the only significant external events are button actuations because of the remote control interface. A frame 
form provides the background and information and status bars used by most of the individual displays. A rolodex form 
provides the menus. The other forms are mostly schedule or list displays of various kinds, including specialized varieties 
such as the alphanumeric selection list form. 

The control part of the program begins with a procedure which loads all forms and activates the frame and rolodex, 
i.e. the top display, to begin. Forms hand off control by setting a return code and hiding themselves, thereby activating 
the form directly beneath (usually the frame). Both the frame form and the rolodex form perform different actions de- 
pending on the value of the return code. The frame form's most common action is to activate another form, and much 
of the control flow of the application is handled by the frame form code. The rolodex form is used to display several 
different menu hierarchies, most importantly view selection and filter choice. 
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rz: = ^ = = COMIMG form code = = = = = = 

This :ora\ displays a 1^7 schedule for several hours of one day. 
T-is version uses drawing .T^ethods for the program shapes 
as opposed to creacmg a conCroi shape for each program^ 
and "pcir." « shoot:" or "visually closest" navigation. 

Option Explicit 

-IT. dllDaca{5) As snapshot 'all data within time period 
Dim f 1 1 -erData 1 8 } As snapshot 'a snapshot for each day in the view 
ri.T. .MDays As Integer 'number of days in display 

3im NSlocs As Integer * nvimber of cij\e slots in display 

Dirr. NStation As Integer 'number of stations in display 
Dim MaxStation As Integer 'total number of stations in database 
Dim colorField As String ' the database field that determines item color 
^5 '(the field should contain an integer) 

Dim. irPreview As Integer 'boolean 'should the preview message show? 
Const sideGap = .05 'space at beginning and end of program 
Const ::opGAP = 4 'space btwn time label and first program shape 
Dim refDace 'reference date for data time slots 

Const IblHeighc = 40 'height of day and time labels (in 500 scale) 

Const MINProgWidth = .2 'minimum width of a program shape as fraction of slot 
Di- slotsPerDay As Integer 'number of slots allowed per day 
Dim currDay 'number of current day 
Dim snartTime 'start day and time of display 

25 TSBegin As Long 'first time slot 

Dim TSEnd As Long 'last time sloe 
Dim TScurrent As Long ' curren- time slot 

Dim rowOffset 'distance becween (tops of) rows in the schedule 
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Sub ApplyFilter () 

•filter program data, keeping only the programs thac match the query in filters (TV) 
'also makes sure the number of stations is correct 
"and the DB field determining the color is set 
Dim i As Integer 'counter 

35 If InStr ( filters (currDomain ) . "Station") Then 

NStaticn = 10 'note: this probably should be a variable or const, not 10 
colorField = "Type" 

Else 

■>iStation = MaxStation 
colorField = "Category" 



Nexr 
45 End Sub 



"or 1 = 1 To NDays 

allData ( i ), Filter = f i 1 ters ( currDomain ) 
Sec f ilterData( i ) = al IData ( i ) . CreateSnapshot ! 
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Su:^ ChangeSel -d As String? 

' ?erf orm.s ihe navigation according to "he direction parameter 
Dim. current, firstMatch 'database markers 
Dim. success As Inceger 'boolean 
Dim. s As Integer 'station 
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Oirr^. e ' FinishTS (end) 

DI.Tl TS As Long 'time-slot 

Diir. F As snapshot 

Dili; aDay As Integer 

Diir. disr 'distance 

Dim best As Long, bestMark 'as database markei" 

•set info about current place in database 
current - f i 1 terDaca ( currDay ) . Booi-cnark 
Sec F. = f ilcerDaca ( currOay ) 
s = r { "Station " ) 
e = F( "Fm-shTS" ) 
TS = TScurrent 
aDay = currDay 
75 success = False 

best = 9999 

If d = "Right" Then 

'check immediace right 

F . MoveNext 

If Noz ".EOF Then 

TS = F( "StartTS" ) 

'success = same station and scarts right after current program 
success = (F ( -Station" ) = s) And (TS <= e ^ 1} 
End If 

25 If Not success Then 

'check all to right for "closest" 
F . MoveFirst 
While Not F . EOF 

If F ( "FinishTS" ) > e Then 

dist = VDistHoriz ( s , e, F (" Stat ion" ) , F (" StartTS ") ) 
If dist <= best Then 
'save best so far 
best = dist 
success = True 
bescMark = F. Bookmark 
35 Erid If 

End If 
F . MoveNext 

Wend 

If success Then 

'move to -he best one 
F . Bookmark - bestMark 
TS = F< "StartTS" ) 
End If 
End I f 
El self d = "Left" Then 
45 'check immediate left 

F . Move Previous 
If Noc F.30F Then 

•success = same station and finishes right before current program 
success = ( F { "Station" ) = s) And ( F {" FinishTS " ) >= TS - 1} 
TS = F{ ''StartTS- ) 
End If 
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If Nc- success Then 
'check a::i to left for "closest" 
F.MoveFirst 
Ahile Not F . EOF 

If FCStartTS") < TScurrent Then 

dist = VDistHori2 (F ( -Station" ) , F { " FinishTS " ) , s, TScurrent) 
If dist < best Then 
' '<eep best so far 
best = dist 
success = True 
bestMark = F.Bookir.ark 
End If 
End If 
F . MoveNext 

75 Wend 

If success Then 

"move to best one 
F.3ook:nark = bestMark 
TS = F ( -StartTS" ) 
End If 
End If 
Elself c = -Do'^- Then 

'check ail prcgrams below current Dne, keeping "closest" 
While Not F . EOF 

If F ■: "Station" ) > s Then 

25 dist = VDistVert(s, TScurrent, e, F (" Stat ion" ) , F ( " StartTS ' ) . 

F i " FinishTS " ; ; 

If dist < best Then 
best - dist 
success = True 
bestMark = F.Booknark 
End If 
End If 
F . MoveNext 

Wend 

If success Then 
35 F. Bookmark = bestMark 

TS = F ( "StartTS- } 
End If 
Elself d = "Up" Then 

'check all programs above current one, keeping "closest" 
While Not F . 30F 

If F( "Station") < s Then 

dist = VDistVertIs, TScurrent, e, F ( " Stat ion" J , F (" StartTS *') , 

F( "FinishTS" ) ) 

If Gist < best Then 
best - dist 
45 success = True 

bestMark = F . Bookinark 
End If 
End If 

F . McvePrevious 

Wend 

If success Then 
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F, Bookmark = bestMark 
TS = F ( "StartTS" ) 
End If 

5 

If success Then 

'update variables and display 
TScurrent = TS 
currDay = aDay 
^0 DispiayProg 
rise 

"rescore old position in dacabasse 
fil terData ( currDay} . Bookmark = current 
End If 

15 -'^^ 

Sub DispiayProg [ j 

'set current program info in info box 

'highlight the appropriate program shape m the display 
Dim F As snapshot 
D:i.m msg As String 

Set F = filterData (currDay) 

'set highlight 
2s ■ shpProg (0) .Visible = False 

selector -Visible - False 

Position shp?rog(0), FCStartM, F( "Finish" ) , F (" Station " } 
CPlace 0, selector. shpProg(01 
shpProg(O) .Visible = True 
selector .Visible - True 
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'message for info box 

msg = StationString (F ( "Station" ) ) i " - " & F{ "Title") i ' '• 
msg = msg Sl Format ( F (" Start ") , "h:mm AM/PM") 
msg = msg fit '* to "* & Forrvat ( F (** Finish "} , "h:mm AM/PM") 
Setlnfo msg, Color ( F { colorField) Mod 9) 
£nd Sub 

Sub Do Preview ( ) 

'Construct an appropriate preview message and display it 
Dim msg As String 

msg = "Station: " & StationString { f iiterData ( currDay ){" Station" ) ) 

msg = msg & Chr{13) & "Title: " St : i 1 terData ( currDay )(" Ti tie " ) i Chr(13) 

msg =s msg Sc CategoryString (( filterData t currDay )( "Type" ) i , 
( filterData (currDay) ( "Category" ) ) I 

msg = Tisg i Chril3) & "Time: " & Forr.at { fi 1 terData ( currDay )<" Start ") , "mmm d,yy 
h : mm AM / PM" ) 

msg = msg i Chr(13) u " to - & Format ( filterData ( currDay )(" Finish" > . - h • mm 

AM/PM" ) 

'show popup' with preview message- 
popup . Caption = msg 
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popup. Top = IblTimed) .Top * 2 * IblT.n-.e { i ) . Heaght 
popup. Left = 2 

popup. Width = slots Per Day - 3 
popup . Visible ~ True 
mPreview - True 
End Sub 

Sub Deselect ( ) 

'set selection info and go to TV 

userStation = f i 1 terData ( currDay) (" Station " ) 

userStart = f i 1 terData ( currDay ) ("Start") 

returnCode = TOTV 

Me .Hide 
End Sub 

Sub OrawProg (colorlndex, start, finish, sta-ion) 
'use drawing methods to draw a prograin shape 

'note: form. AutoRedraw should be set to true so the drawings are persistant 
Dim L, R, t, B 'left, right, top, bottom 
Dim dayStart 
Dim edge 



convert a day/time to position in NSlot scale 
dayStart = startTime * currDay - 1 
L = (start - dayStart) * 48 
R = (finish - dayStart) * 48 
"clip shapes off at day boundaries 
rf I. < 0 Then L = 0 

If R > slotsPerDay Then R = slotsPerDay 
'place in correct day, with small gap between programs 
edge = (currDay * 1} * slotsPerDay 
L = L edge + sideGap 
R = R + edge - sideGap 

'correct for min width to make sure program will show up 
If R - L < MINProgWidth Then R = L - MINProgWidth 
' set top according to station 
35 'note: this trick will not work if "favorite stations" are not numbered l..n 

rowOffset = ({500 - 2 * IblHeight - shpProg ( 0 1 . Height ) / NStation) 
t = shpSlot ( 0) .Top ^ topGAP + (station - 1) * rowOffset 
B = t * shpProg( 0) .Height 
'draw the box with the correct color 
drawwidth = 1 
!^e. FillStyle = 0 'solid 
Me.rillColor ~ Color ( color Index Mod 9) 

Line (L, t)-Step(R - L. B - t), ,3 'the line command with argument B draws a 

box 

End Sub 
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Sub r or~_Activate ( ) 

•make necessary changes to display, reset mfo and status bars 
Di.T. 1 As Integer ' counter 
Static saverilter As String 

If saverilter = f il ters ( currDomain ) Then sameFilter = True 
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saveFil^er = £il cers ( currDomain ) 

SecScacus "TV Coming Up: - & currr il -er ( TV) , greyCOLOR 
If newUser Then 

popup. Caption = •'Press 'category' to change the kind of prcgrarr.s dioiayed. 
popup , Visible = True 
newUser = False 

'if net sar.e filter, redo display 
*f Not sa-eFilter Then 

Setlnfo "Loading program information...", GREY 
shpFrog(O) .Visible = False 
selector .Visible = False 
ApplyFilter 
75 MakeDisplay 
End If 

' in every case 
Displayprog 

If inPreview Then DoPreview 
End Sub 
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Sub Forr:i_KeyDown i KeyCode As Integer, Shift As Integer) 
Select Case KeyCode 
Case Asc ( "Q" ) 
25 End 

Case B_BACK 

returnCode = BACK 
Me . Hide 
Case 3_HEL? 

InvokeHelp 
Case a_?R£ViEW 

If inPreview Then 

popup .Visible = False 
inPreview = False 

Else 

35 inPreview = True 

End If 
Case B_RIGHT 

If Not f ilterData (currDay) . EOF Then ChangeSel {"Right") 
Case B_LEFT 

^'ot f ilterData (currDay) . EOF Then ChangeSel ("Left") 
Case 3_UP 

If Not filterData (currDay) .EOF Then ChangeSel ("Up") 
Case 3_DOWN 

If Not filterData (currDay) . EOF Then ChangeSel ("Down") 
Case B_3EL£CT 

45 If Not fi IterData ( currDay ). EOF Then ::o5elect 

Case a_ PAGEDOWN 
Case 3_?AGEU? 
Case 3_FILTER 

returnCode = Filter 
Me. Hide 
Case 3_0 
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recurnCode = SHORTCUT 
Me .Hide 
End Select 

* m any case 
If inPreview Then 
Do Preview 

Else 

popup . Visible = False 
End If 

^d Sub 

ib Form^Load. ( ) 

Dirn i As Integer 
Cim t ' as rime 



' set form colors and fonts 
Me.3ackColor = formCOLOR 
shpProg ( 0 ) .BackColor = BorderColor 
IblDay ( 0 ) . BackColor = backgrouncCOLOR 
IblAM . BackColor = backgroundCOLOR 
IbiPM . BackColor = backgroundCOLOR 
selector . BorderColor = BorderColor 
dayLine ( 0 ). BorderColor = divideColor 
IblTime { 0 ) . ForeColor = slotCOLOR 
shpSloc ( 0 1 . BorderColor = slotCOLOR 
If displayMode = "TV" Then 

IblDay { 0) . FontSize = smallFONT 
IblTime ( 0 ) • "ontSize = sn\allFONT 
IblAM . FontSize = smallFONT 
IblPM . FontSize = smallFONT 
popup , FontSize = medi-^^ONT 

Else 

iblDay t 0 ). FontSize = largeFONT 
IblTime { 0 ). FontSize = largeFONT 
IblAM. FontSize = largeFONT 
IblPM . FontSize = largeFONT 
popup . FontSize = largeFONT 
End If 

'set scale and size objects' 

SizeAForm Me. DispTop, DispHeight, DispLeft, DispWidth 
Me. Scale (0, 0)-(5CC, 500) 

SizeAControi IblDay(O), 0, IblHeight, 0, 500 

'note: the AM/PM labels would be placed when time is filtered 
SizeAControi IblPM, 0, IblHeight, C, 30 
SizeAControi IblAM, 0, IblHeight, 500 - 30. 30 
SizeAControi ibiTime{0), IblHeight, IblHeight, 0, 50 

SizeAControi shpSlotiO), 2 * IblHeight + .5 * topGAP, 500 - 2 *. IblHeight, 0, 50 
SizeAControi popup, 250, 200, 250, 200 
selector . BorderWidth = 1 
day line ( 0 ) . Yl = C 
. dayi^me ( 0 1 . Y2 = 500 
' ir.it ial i ze variables 
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s-arcTirr.e = fakeToday ♦ fakeTime 't.his wculd be se- ac activate Co currer.i half 

MDays = 1 
slocsPerDay =24 
N'Slcts = NDays * slotsPerDay 
sameFiiter = False 
same View = Fal se 
inPreview = False 

'sec form scale and place permantenc scuff {day and time labels! 
Me . ScaleWidch = NSlocs 
Load IblDay(l) 

SireAConcrol IblDay(l). 0, IblKeighc, 0, slotsPerDay 
IblDay ( 1 ). Caption = DayS trinq ( scartTime , "long") 
IblDay ( 1 ). Visible = True 
75 lblTir\e(0) .Width - 1 

For 1=1 To slotsPerDay 
Load IblTime ( i ) 
IblTime { 1 ) . Move i - 1 

t = DateAdd{"n", 30 * (i - 1), startTimei 'add 3C minute increments 
IblTi-e ( i ) -Caption = TimeLabel(t) 
IblTirr.e ( i ) .Visible = True 
IblTime t i ) . ZOrder 
Next i 

InputOata 
25 Form_ Activate 

same View = True 
End Sub 



Sub InputData ( ) 
'part of form_load 

'opens the database and creates allData snapshots 

Dim DB As database 

Dim RefSnap As snapshot 

35 Set D3 = OpenDatabase (TVDB) 

'get reference date and number of stations 
Set RefSnap = DB . CreateSnapshot (" Reference " ) 
RefSnap . FindFirst "Name = 'Date'" 
refDate = DateValue { RefSnap <" Data "» I 
RefSnap . FindFirst "Name = 'NStations'" 
MaxStation = Val ( RefSnap (" Data ") ) 

5et allData(O) = DB . CreateSnapshot (" Programs " ) 
'assumes data already sorted 

■ filter for particular time period, would happen ac each half -hour change 
rSBegin - Abs ( DateOif f < " n" , startTime. refDate) \ 30) 
TSEnd = TSBecin slotsPerDay - 1 'check that slotsPerDay is set 
allData ( 0 ). Filter = Overlap (TSBegin . TSEnd) 
Sec allData(l) = allData ( 0 ). CreateSnapshot i ) 
Set allData (0) = Nothing *' won * t be needing everything 
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"nd Sub 

Sub MakeDisplay ( ) 

■creatie rhe display of programs from the daca 
Diat 1 As Integer 'counter 
-im d As Integer 'day 
Dim F As snapshot 'convenience 

If Not sane View Then 

'would need to reset captions for times and day 
End If 



■place program shapes 

Cls 'clear the form of previous drawings 
75 DoZvents 'make it so 

ror d = 1 To NDays 
currDay = d 

'draw lines to separate time slots 
For i = 0 To slots PerDay 
drawwidth - 4 

Line ( i , ■ shpSlot ( 0 ) . Top) - { i , 500), slotCCLOR 
Next i 

'draw program shape for each program in data 
Set F = f ilterData (d) 
If N'ot F.EOF Then 
25 ^ • MoveFirst 

Do While Not F.EOF 

DrawProg F ( coiorField ) , F( "Start"), F (■■ Finish ") . F (" Stat ion" ) 
F . MoveNext 

Loop 

F . MoveFirst 
End If 
Next d 



' initialize stuff 
TScurrent = TSBegin 
currDay = 1 
shpProg ( 0 ) . ZOrder 
selector . ZOrder 
Set F = f ilterData(currDay) 
' find a program to start on 
Do '^mile TScurrent <= TSEnd 

F.FindFirst Overlap ( TScurrent , TScurrent) 
If Not F.NoMatch Then 
DisplayProg 
Exit Do 
End I f 

45 TScurrent = TScurrent + 1 

Loop 

'make sure TScurrent is in range 
If TScurrent > TSEnd Then TScurrent = TSBegin 
End Sub 
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Sub Position (shape As Control, start, finish, station) 
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'position a program shape control 

Dim relativeL, relativeW. dayStart 
Dim edge 

'convert a day/time to position in NSlot scale 
cayStart ~ startTime ^ currDay - 1 
relativeL = (start - dayStart) * 48 
relaciveW = (finish - dayStart) • 48 - relativeL 
'clip shapes off at day boundaries 
If relativeL < 0 Then 

relativeW = relaciveW + relativeL 

relativeL = 0 
End I f 

If relativeW + relativeL > slotsPerDay Then relativeW = slotsPerDay - rela 

'set left and width of shape- leaving small gap between programs 

edge = (currDay - 1) * slotsPerDay 

shape. Left = relativeL edge + sideGap 

shape. Width = relativeW - 2 * sideGap 

' set minimum width so program is visible 

If shape. Width < MINProgWidth Then shape. Width = MINProgWidth 
' set top according to station 

'note: this will not work if "favorite" stations are not nuiribered l..n 
rowOffset = {(500 - 2 • IblHeight - shpProg ( 0 ). Height ) / NStation) 
shape. Top = shpSlot ( 0 ) . Top + topGAP + (station - I) * rowOffset 
Snd Sub 

Function TOistHoriz (stationl, finish, station2, start) 

•computes a value for the "visual" left -right distance between two programs 
'requires that the earlier program come first 

'note: needs refinement, does not work satisfactorily, especially with crowded 
displays 

Dim deltaR, deltaT 'change in row and time 
Dim rowl, row2 

rowl = stationl 
row2 = station2 

'note: row calculations could be more complicated if stations not numbered 
deltaR = Abs ( rowl - row2 ) ' (100 / NStation) 
deltaT = (start - finish) * (100 / slotsPerDay) 
'penalize programs that are more upidown than to side 

If deltaT <= 1 Then deltaT = (finish * 3 - start) * (100 / slotsPerDay) 
If deltaT < 1 Then deltaT = 100 / slots PerDay ' don ' t allow zero 
^^istHoriz = deltaR * deltaT 
End Function 

Function TOistVert (stationl, startl, finishl, station2, start2 , fini3h2) 
'computes a value for the "visual" up-down distance between two prcgrains 
'note: needs refinement 

Dim deltaP., deltaT 'change in row and time 

Dim rowl, row2 

rowl = stationl 
row2 = station2 

'note: row calculations could be more complicated if stations not nuinbered 
deltaR = Abs ( rowl - row2 ) / NStation 
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If starcl > finish2 Then 

deltaT = Abs(start:l - finish2) 
Zlself scar-2 > finishl Then 

deitaT = Ahs(scarr2 - finishl) 

Else 

deitaT = 0 
Znd If 

VT)is-Verr = deitaR - 2 * deitaT 
Sr.d Function 

■ = = = = = = FRAME form code = = = = = = 

'This form owns the scandard info and status bars and allows 

transfer of control from form to form. 
Option Explicit 



Sub ?orm_Activate { ) 

'decides which other forr-i should show in its display area 
Select Case returnCode 
Case SKOIWIEW 

views (currOomain) .Show 
Case PICK 

f rmSelect . Show 
Case rOTV 

frnTV. Show 
Case LASTVIEW 
25 sameFilter = True 

views ( currDomain) .Show 
Case STARTUP 

'do not.hing--don ' t want roiodex to show yet 
Case Else 

f rr^Dex . Show 
End Select 
End Sub 



Sub Form_:<eyDown (KeyCode As Integer, Shift As Integer) 

If KeyCode = Asc("Q") Then 
35 End 

End If 
End Sub 



Sub rorm_Load ( ) 

' set colors and fonts 
Me.BackColor = formCOLOR 
sspinf o . r ontSize = mediumFONT 
sspStatus . FontSize = mediumFONT 
'use builtin object to size background 
ScrvUdth = Screen. Width 
45 ScrHeight = Screen . Height 

If displayMode = "mini" Then 
' for taking screen prints 
ScrHeight = ScrHeight * . 54 
ScrWidth = ScrWidth ' .712 
displayMode = "T^/- 

Else 
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' resize to fit TV 
ScrHeight = ScrKeight • .S3 
End If 

'set form to fill screen 
f rir.Fr-ame.Top = C 
frmFrame. Height = ScrHeight 
f rmFrame . Lef t = 0 
frxFrame . Width = ScrWidth 
' mfo line at top of screen 
ssplnfo . Visible = True 
'status line at bottom of screen 
sspStatus . Visible = True 
'define available display area 
DispTcp = ssplnfo . Height + 1.5 
^5 DispHeight = frmFrair.e . Height - ( sspStatus . Height + 1.5) - DispTop 

DispLeft = 0 

DispWidch - frmFrame -Width 
End Sub 



10 



20 



30 



40 



50 



Sub SetupStatus () 
End Sub 



• == = = = = LIST form code = = = = = = 

'This code is used for all three list forms (TV, Movies, Shopping) 
Option Explicit 
25 Dim 33 As database ' full database with indexes 

Dim. BlinkControl As Control * set to blinking object (currently none) 
Dim itemSelected As Integer 'from 1 to MAXDISPLAY 
Dim locSelected As Integer 'from 1 to MAXLOC 
Dim inPreview As Integer 'boolean 

Dim captionField As String 'the database field that is used for display 
Dim startTime 'the start time for the TV list 
Dim TS As Long * the time slot for the TV list 

Dim rowOffset 'difference between tops of two consecutive reduced item.s 
Dim browsing As String "type of current shopping list 
35 Dim colorField As String 'field which determines color (should be of type integer) 

'display parameters 

Const MAXDISPLAY = 6 'Number of items in close up 
Dim MAXITEM As Integer 'Number of items in whole list 
Dim MAXLOC As Integer 'Number of locator positions 

Dim whichrltemi MAXDISPLAY) As Integer 'which ritems are in the current display 



'define sizes of locator and selector 
Const GAP = 10 ' space around lists 
Const EXTRA = 70 'room for longer programs 
"^5 Const reducedEXTP-A = 20 "room for longer programs in reduced rep 

Consc T = 50 'reduced list 

Const H = 1000 - 2 * T 
Const locL = 3 0 'display area 



Ccnst locVJ = 100 

Const dispL = locW > 2 * locL 

Const dispVJ = 1000 - dispL - locL 
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'database snapshots 
Di.T. ailDaca As snapshot 
DiTi iceniDaca As snapshot 
Dim scoreDaca As snapshot 

depcDaca As snapshot 
D^.T. stuff Data As snapshot 
Di- fiiterData As snapshot 

D:.rr. marker (10 00) As String 'bookmarks of each MAXDISPLAY items 
DirD locS-arr (1000) "rltem index for start of locator 

Sub ApplyFilter ( ) 

' filter the data according to user choice 
Dim sortString As String 



If Me Is TVlist Then 

captionField = "Title" 
sortString = 
CO lor Field = "Type" 
Elself Me Is MOVlist Then 
If same View Then 

•keep allData as it is 

Else 

'reset allData to all movies 
LoadData 

25 allData. Filter = viewFilter 

Set allData = allData . CreateSnapshot ( ) 
End If 

captionField = "Title" 
sortString s "Title" 
coiorField = "Type" 
Elself Me Is SKOPlist Then 

■note: This would all be done totally differently. Don't bother 

understanding it, just rewrite it. 
Select Case f il ters ( currDomain ) 
Case "store" 
35 browsing = "store" 

Sec allData = storeData 
captionField a "name" 
filters i currDomain) = " " 
sortString = "name" 
cclorFieid = " " 
Case "dept" 

brews ing = "dept" 

deptData . FindFirst "name = • " i userString & 

userString = ' f ix--this is cheating, I shouldn't use userString 

If deptData . NoMatch Then 
45 Set allData = deptData 

filters (currDomain) = 

Else 

browsing = "stuff" 

f liters (currDomam) = "[dept code] = " & deptData ( "code" ) 
5^ Set allData = stuffData 

End I f 
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caprionField = "nainie'* 
sorcString * '"name" 
colorField = " " 
Case "item" 

browsing = "item* 
Set allData = itemData 
captionField = "name" 
colorField = 

f ii ters ( currDomain) = "name like i userStrinc i 

sorts t ring = "name" 
Case Else 

browsing - "stuff " 

captionField = "name" 

sortString = "name" 

colorField = "[item code]" 

Set ailData = stuffData 
End Select 
End If 



allData . Filter ~ f liters ( currDomain ) 
If filters (currDomain) = " " Then 

ailData . rindFirst "Not " & captionField ^ - = 

Else 

ailData. FindFirst allData , Filter 
End If 

If allData. NoMatch Then 
MAXITEM = 0 

Else 

MAXITEM = 1 'temporary setting just to make sure it isn't 0 
Set filterData = allData , CreateSnapshot ( ) 
f ilterData . Sort = sortString 

Set filterData = filterData . CreateSnapshot O 
End If 
End Sub 



Sub 31inkStart (C As Control, vis) 
Set BlinkControl = C 
BlinkControl . Visible = vis 
tmrBl ink . Enabled = True 

End Sub 



Sub 3linkStop (vis) 

tmrBlink. Enabled = False 
If BlinkContrcl Is Nothing Then 
"do nothing 

Else 

BlinkControl . Visible = True 
End If 

Set BlinkControl = Nothing 
End Sub 
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Sub ChangeLoc (direct As String) 
'page up or down with the locator 
SO Select Case direct 
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Case "Up" 

If iocSeiecced > 1 Then 

locSelected = locSelected - i 
5 RedoDisplay 
End If 
Case "Down" 

If locSeiected < MAXLOC Then 

locSelected = IocSeiecced 1 
RedcDisplay 
End If 
£nd* Select: 
Znd Sub 

Sub ChangeSel {direct As String) 
15 'navigate up or down one selection 

Select Case direct 
Case -Up- 

If i terr.Selec ted > 1 Then 

'move up within current display 
i teiTiS electee = itemSelected - 1 

20 

selector. Top = itemSox ( i temSelec ted) . Top - GAP 

ritein ( 0 ) - Top = r I tern (whichr I tern ( itemSelected) ). Top 

ritem ( 0 J - Lef t = locL - GAP 

r I tern ( 0 ) -Width = locW + 2 ♦ GAP 

Setltemlnfo 

25 Si self locSelected > 1 Then 

•display previous section of list 

itemSelected = MAXDI3PLAY 

locSelected = locSelected - 1 

RedoDisplay 

End If 
30 ^ „ 

Case "Down" 

If itemSelected < MAXDISPLAY Then 

'move do'rtTi within current display 

'do not .-neve to select an empty item 

If (locSelected - 1) • MAXDISPLAY + itemSelected < MAXITEM Then 
35 itemSelected = itemSelected * 1 

selector. Top = itemBox { itemSelected) . Top - GAP 
rItem(0).Top = ritem (whichrl tern ( itemSelected) ). Top 
rltemtO) .I^eft = locL - GAP 
rltemiO) .Width = locW ^ 2 • GAP 
SetltemInf o 

40 c - 

Ena If 

Elself locSelected < MAXLOC Then 
'display next section of list 
ite-.Selected = 1 
locSelected = locSelected + 1 
45 RedoDisplay 
End If 
End Select 

rl tern ( 0 ). Visible = True 
End Sub 

Sub DoPreview ( ) 
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' shew preview window and preview locator 
D*r7. i As Integer ' counter 

inPreview - True 

'hide other stuff 
locator . Visible = False 
selector . Visible =s False 
For i = 1 To >lAXDrSPLAY 

itemBox ( i ). Visible = False 
leftArrow ( i ). Visible = False 
rightArrow( i ), Visible = False 
Next i 

15 previewwin . Caption = "Getting preview, 

previewivin . ZOrder 
previewivin . Visible = True 
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ShowPreview 
End Sub 

Sub DoSelect ( ) 

'act on the current selected item 

If Me Is TVlist Then 
25 ' set selection data and go to TV 

userStation = fil terData (" Station" ) 
userStart = fil terData (- Start " ) 
returnCode = TOTV 
Me .Hide 
Elself Me Is MOVlisc Then 

'display "order movie" message 
samieFi 1 ter = True 

TellUser "You would be asked to confirm your order of " & 
f ilterCatai "Title" ) 

Elself Me Is SHCPlist Then 
35 Select Case browsing 

Case "stuff" 

sameFilter = True 

TellUser "You would be asked to confirm your order of " Se 
f i 1 cerData ( "name" ) 

Case "store" 

filters { currDomain) = "[store code] = " & f ilterData { "code" ) 
Fo rm_Ac t i va t e 
Case "item" 

f liters ( currDomain) = "[item code] = " & fil terData ( "code " ) 
Fo rm_Ac c i va t e 
45 Case ''cept" 

f ilters i currDomain) = - {dept code] = " & fil terData {" code " ) 
Form^Activate 
End Select 
End If 
End Sub 

50 
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b EndPreview () 

o back CO regular list operacion 
Dim 1 As Integer 'counter 

previewVJin. Visible = False 
inPreview = False 
locator . Visible - True 
selector . Visible = True 
previewWin.Top = displayLis t . Top 
RedoDisplay 
d Sub 

b Forni_ Activate () 

Dim i As Integer 'counter 

Dim section As Integer 'count the number of locator locations 

Dim N'Visible As Integer "tally the visible shapes in a section 

Dim msg As String 

Static saveFilcer As String 

Static saveView As String 

'check new filters against current filters 

If Not sameView Then sameView = (saveView = viewFilter} 

saveView = viewFilter 

If Not sameFilter Then sameFiiter = {saveFilter = f liters ( currDomain ) ) 
saveFilter = f liters (currDomain) 

SetStatus currView(currDomain) & currFil ter { currDomain ) , greyCOLOR 

If sameFiiter And sameView Then 

'keep everything the same as last time 
If newUser And Not Me Is SHOPlist Then 

popup. Caption = "To change the category shown, press the 'Category' 

tton. " 

popup . visible = True 

newUser = False 
End If 
RedoDisplay 

Else 

'clean up display 

Setlnfo "Selecting data, please wait...", GREY 
If MAXITEM = 0 Then 

previewWin .Caption = " " 
previewWin. Visible = False 
End If 
DoEvencs 

If inPreview Then EndPreview 

For i = 1 To MAXDISPLAY 

it emBox ( i ) .Caption = - " 
Next i 

For i = 1 To MAXITEM 

Unload rltem(i) 
Next i 
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' filler new data 
ApplyFilter 
5 If MAXITZM = 0 Then 

'give "no matches" msg 
locacor. Visible = False 
rlcem(0 ), Visible = False 
For i = 1 To MAXDISPLAY 
MAXITEM = C 

itemBox(i} .Visible = False 
leftArrow(i) .Visible = False 
righcArrow{ i ). Visible = False 
Next i 

-pfeviewWin . Caption = "No matches were found" & Chr{13:' 
15 previewWin . Caption = previewWm . Caption & "Press 'Category' zo change 

t:he selection , " 

previewWin. ZOrder 
previewWin , Visible = True 
iteruSelected = 0 
locSelected - 0 

20 

E^se 

"redo list display 
f i 1 terOaca . MoveLas t 
MAXITEM - f ilterData.RecordCount 
'set distance between items 
25 rowOffset = (H - rl tern ( 0 ). Height ) / MAXITEM 

If rowOffset > ritem ( 0 ). Height + GAP Then rowCffset = rl tern ( 0 ). Height 
GAP 'max distance 

rltem(O) .Visible = False 
rltem(O) .Top = T 

rltein(O) .Left = locL ^ reducedEXTRA 
rltem(O) .Width = locW - 2 * reducedEXTRA 
rltem( 0 ) . BackColor = itemCOLOR 
f ilterData .MoveFirst 
• size and place the item shapes 
'and set section bookmarks 
35 section - 0 'number of locator locations 

NVisible = MAXDISPLAY 'so first section will be marked correctly 
For i = 1 To MAXITEM 

Load rltem(i) 

If colorField <> - " Then 

rltem(i) .BackColor = Color ( Val ( f ilterData { cciorField) ) Mod 9) 
End If 

NVisible = MVisible + 1 

rItem(i).Top = T (i - i) * rowOffset 
If NVisible > MAXDISPLAY Then 
'begin a new locator location 
45 section = section * 1 

locStart {section) = i 

marker ( section) = f ilterData . Bookmark 
NVisible = 1 
End If 

If Me Is TVlist Then 

50 

' set length of reduced item 
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If f ilterDaca ( "Star-TS" ) < TS Then 

rltein{ i) . Left » rltem f i ) . Lef t - reducedEXTRA 
rltem(i) .Width = rl tern t i ). Width + reducedEXTRA 

End If 

If f ilterData ( "FinishTS") > TS Then 

rltem( i) .Width = rl tiem ( i ). Width * reducedEXTRA 
End If 
End If 

rltem(i) . ZOrder 
rltem(i) .visible = True 
f ilterData . MoveNext 
Next i 

MAXLOC = section 

iocStart ( section + 1) - MAXITEM + 1 

' set length of minselector (use rltein{0)) 
rltem( 0 ) . Left = locL - GAP 
riteir. (0) .Width locW + 2 * GAP 

' initialize selector and locator 
itemSelected = 1 
locSelected = 1 
locator . Visible = True 
rltem ( 0 ). BackColor = highlightCOLOR 
'set the captions m the itemBoxes 
RedoDisplay 
End If 
End If 
nd Sub 

ub corm_KeyDown (KeyCode As Integer, Shift As Integer) 
popup . Visible = False 
Select Case KeyCode 
Case Asc ( "Q" } 

End 
Case B_BACK 

If Me Is SHOPlist And browsing = "item" Then 
'not exactly what we want 
returnCode = ALPHA 
Me. Hide 

Else 

returnCode = BACK 
Me. Hide 
End I f 
Case B_HELP 

InvckeHelp 
Case B_PR£VIEW 

If inPreview Then 
EndPreview 

Else 

DoPreview 
End If 
Case B_3ELECT 

If MAXITEM > 0 Then DoSelect 
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Case B_UP 

If MAXITE24 > 0 Then ChangeSel ("Up"; 
Case B_DOWN 

if MAXITEM > 0 Then ChangeSel ("Down"} 
Case B_RIGHT 

If Me Is TVlist Then 

retumCode = COMING 
Me. Hide 
End If 
Case B_L£FT 
Case B_PAGEUP 

If inPreview Then 

'scroll preview 

If previewWin. Top < displayLisc . Top Then 
15 'move preview window down a screen 

previewWin . Top = previewWin . Top + displayLisc . Height 
End If 

Else 

If MAXITEM > 0 Then ChangeLoc ("Up") 
End If 
Case B.PAGEDOWN 

If inPreview Then 

'scroll preview 

If previewWin. Top + previewWin . Heighc > displayLisc . Top -* 
displayLisc . Heighc Then 
25 'move preview window up a screen 

previewWin . Top = previewWin . Top - displayLisc , Height 
End If 

Else 

If MAXITEM > 0 Then ChangeLoc ("Down") 
End If 
Case B^FILTER 

If Not Me Is SHOPlisc Then 
returnCode = Filter 
Me, Hide 
End If 
35 Case B_0 

returnCode = SHORTCUT 
Me. Hide 
End Select 
Snd Sub 

40 

Sub Form_Load ( ) 

Dim i As Integer ' councer 
Dim itemRoom 

•set colors and fonts 
45 itemBox ( 0 1 . FontSize = largeFONT 

lef tArrow(0 ) . FontSize = largeFONT 
rightArrow( 0 ) - FontSize = largeFONT 
If displayMode = "PC" Then 

popup . FontSize = largeFONT 
previewWin . FontSize = largeFONT 

Else 
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previewWin. FontSize « mediiiinFONT 
popup . FontSize = smallFONT 
End If 

5 rltem ( 0 ) . BackCoior - itemCOLOR 

selector . FillColor = highiightCOLOR 
displayLiscFillColor = backgroundCOLOR 
previewWin • BackCoior = backgroundCOLOR 
locator . FillColor = backgroundCOLOR 
itemBox(O) .3ackColor = itemCOLOR 
leftArrow ( 0) . BackCoior = itemCOLOR 
rightArrow(O) .BackCoior = itemCOLOR 
shpSlot.BorderColor = slotCOLOR 
'size the objects to the screen 

SizeAForm Me. DispTop, DispHeight, DispLeft, DispWidth 
75 Me. Scale (0, 0)-{1000, 1000) 

SizeAControl locator, T - GAP. H GAP, locL - GAP, locW * 2 * GAP 
SizeAControl shpSlot, H, locL + reducedEXTRA, locW - 2 * reducedEXTRA 

SizeAControl displayList, "T - GAP, H + GAP, dispL, dispW 
SizeAControl popup, dispW / 2, 4 * locW, dispW / 2, 4 * locW 
CPlace 1, previewWm, displayList 
_ locator , ZOrder 

shpSlot . ZOrder 
rltem(O) .ZOrder 
itemRoom = H / MAXDISPLAY 

SizeAControl itemSox^O), T + {.5 * GAP), itemRoom - GAP, dispL + EXTRA disoW - 
2s 2 ^ EXTRA 

SizeAControl patch(O), 50, (6.8 * itemBox { 0 ). Height ) , (12.3 * i temBox ( 0 ). Width) 
(7 * itemBox{0) .Height) 

If displayMode = "TV" Then 

patch( 0) .Left ^ 8.08 * i temBox ( 0 1 , Width 
patch (0) .Height = 3.7 * i temBox ( 0 ). Height 
30 End Zt 

SizeAControl lef tArrow ( 0 ) , T * C.5 * GAP), itemRoom - GAP, dispL, EXTRA 
SizeAControl rightArrow(O) , T ^ {.5 • GAP), itemRoom - GAP, dispL dispW - 
EXTRA, EXTRA 

SizeAControl selector, T, itemRoom + GAP, dispL, dispW 
35 selector . ZOrder 

For i - 1 To MAXDISPLAY 

'Load itemBoxU) 'Now created at design time--fixed number (6) 

itemBox( i ) .Visible = False 

CCopy itemBox(O), itemBox(i) 

paLch ( i ). Visible = False 

CPlace 0, patch(i), patchtO) 

item3ox(i) ,Top = i temBox ( 0 ). Top + (i - 1) • itemRoom 
Load leftArrow(i) 

lef tArrow( i ) ,Top = i t eir3ox ( i ) . Top 
Load rightArrowf i) 
45 rightArrow(i) .Top = i temBox ( i ). Top 

Next i 

■ load the list data and set up the display 
sameFiiter = False 
sameView = False 
50 LoadData 
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r orm_Activate 
sameFilcer = True 
End Sub 

Function ItemString () As String 
' sec msg to be used in info bar 
Din msg As String 

If Me Is TVlist Then 

msg = Format ( EilterDaca { -Title" ) ) £t " on " 
msg = msg k StationString ( til terDdta (" Station" ) ) & " , " 
msg = msg 6c TimeString ( fii terData Start ") ) u " to " 
msg = msg & TimeString ( filterData ( "Finish" ) ) 
Elself Me Is MOVlist Then 
15 "isg = Format ( filterData i Title" ) ) 

msg = msg St " , " & Format < filterData ( "Year ") ) 
Elself Me Is SHOPlist Then 
Select Case browsing 
Case "stuff" 

msg = Format ( filterData ( ''name' ) ) Format { filterData { "price" 

End Select 
End If 

ItemString - msg 
End Function 
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Sub LiOadData ( ) 

Dim refSnap As snapsho" 
Dim refDate 

'load in the database as a snapshot 
If Me Is TVlist Then 

startTime = fakeToday + fakeTime 

Set DB = OpenDatabase (TVDB) 

Set refSnap = OB . CreateSnapshot {" Reference " ) 
ref Snap . FindFirst "Name = 'Date'" 
refDate = OateVaiue ( ref Snap ( "Data" ) ) 
Set allData = DB . CreateSnapshot (" Programs " ) 
' filter for time would really happen at activate 
TS = (StartTime - refDate) * 48 
allData . Filter = Overlap (TS, TS) 
Set allData = allData . CreateSnapshot ( ) 

Elself Me Is MOVlist Then 

Set DB = OpenDatabase (MVDB) 

Set allData = DB . CreateSnapshot ( "Movies " ) 

Elself Me Is SHOPlist Then 

Set DB = OpenDatabase { SPDB) 

Set iterrlJata = DB . CreateSnapshot (" I tem.s " ) 

Set stcreData * DB . CreateSnapshot (" Stores '* ) 

Set deptData = DB . CreateSnapshot ( "Departments " ) 

Set stuffData = DB . CreateSnapshot (" Stuf f " ) 

End If 
End Sub 

Sub RedoDisplay ( ) 
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'sec the captions in the itemBoxes to correspond to items in locator 
reposition locator and selector, update info box 

Dim last As Integer 
Dim i As Integer 

Dim Index As Integer 'index of ritem 

If XAXITEM = 0 Then Exit Sub 

' figure first item location 

filterData . Bookmark = marker ( locSelec ted ) 



Index = locStart (locSelected) 
Fori = 1 To MAXDISPLAY 

If f iiterData . EOF Then 
15 'hide empty itemBox 

itemBox ( i ). Caption = 
itemBox ( i ). Visible = raise 
leftArrow(i] .Visible = False 
rightArrow ( i ) .Visible = False 

Else 

whichrltem( i } = Index 'so we can highlight the correct rItem : reduced 
item) 

If colorField <> Then i terr3ox ( i ) . BackColor = 
Color { f iiterData (colorField) Mod 9) 

itemBox{ i) .Caption = f iiterData ( captionField) 
25 If Not inPreview Then itemBox f i ). Visible = True 

If Ke Is TVlist And Not inPreview Then 

"show arrows to reflect program length 
If f ilterData( "StartTS- ) < TS Then 

leftArrow(i) .BackColor = itemBox ( i ). BackCoicr 
leftArrow( i ) .Visible = True 

Else 

leftArrow( i ). Visible = False 
End If 

If f iiterData ( "FinishTS" ) > TS Then 

rightArrow( i ). BackColor = itemBox ( i ). BackColor 
35 rightArrow( 1) .Visible = True 

Else 

rightArrow{ i ). Visible = False 
End If 

'show color patch for subcategory 

patch( i ) . FillColor = Color ( f iiterData ( "Category " ) Mod 9) 
patch ( i ). Visible = True 
End If 
last = i 

Index = Index * 1 
f i 1 terData . MoveNext 

45 End If 

Next i 

'Do not allow blank to be selected 
If itemSelected > last Then 

itemSelected = last 
End If 
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* fix the rest of the display 

displayList .Height = H + 2 * GAP - (H / MAXDI5PLAY * (MAXDISPLAY - last!) 
'display list shrinks when fewer than MAXDISPLAY items displayed 

selector. Top = itemBox { i temSelected) . Top - GAP 'behind current itemBox 
locator. Top = T - rowOffset * ( locS tart ( locSelected ) - 1) 

locator .Height = last * rowOffset + rl tem ( 0 ). Height - rowOffset 'height shrin] 
when displayList shrinks 

rItem(G).Top = rl tem twhichrltem ( i temSelected) ). Top 

Setl teminf o 
=:nd Sub 

Sub Setl teminf o {) 

'display current item's info in info bar 

Dim i As Integer ' # of records away from booJonark we need to go 
Dir. r.sg As String 

* find selected record 

f iiterData . Bookmark = marker { locSelected) 
i = itemSelected 
While (i > 1) 

f iiterData . MoveNext 

i = i - 1 

VJend 

' Put info in the info bar 

Setinfo ItemString ( 1 , { i terr^ox ( itemSelected ). BackColor ) 
'update preview window if needed 
If inPreview Then ShowPreview 
End Sub 

Sub ShowPreview . { } 

'Display the video, still, or text preview 
' of the item selected 
Dim msg As String 
If Me Is MOVlist Then 

msg = f iiterData (" Plot " ) 
Elself Me Is TVlist Then 

msg = f iiterData (captionField) & Chr(13) 

msg = msg & StationString ( f iiterData (" Station" ) ) & Chr(13) 

msg = msg & CategoryString {( f iiterData ( "Type ")) , ( f 11 terData ( "Category ->) ) 

Else 

msg = "This would be a video, still, or textual preview of 
msg = msg k f iiterData (captionField) 
msg = msg k " ' " 
End If 

previewWin . Visible = False 
previe'.«rWin . Cape ion = msg 
CPlace 0, previewWin, displayList 
previewWin . Visible = True 
End SuD 

Sub tr-.r3link_Timer ( ) 

ElinkControl .Visible = Not BlinkControi . Visible 
End Sub 
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• = = = = = = MESSAGE forri cede s = ssss- 

'This form is used by Help and some liscs display informaticr. 

temporarily covering up the curren" forT>. 
Opcion Explicit 

Cons- GAP = 500 

Sub Form_Activate ( ) 

text Area . Caption = userMsg 
End Sub 



Sub r orm_KeyDown (KeyCode As Integer, Sh:i.ft As Integer } 
Select Case KeyCode 
^5 Case Else 

returnCode = KeyCode 
Me. Hide 
End Select 
End Sub 

20 

Sub Form.Load ( ) 

'set colors and fonts 
Me.BackColor = itemCOLOR 
texcArea . 9ac:'cColor = itemCOLOR 
cextArea . FontSize = largeFONT 
25 'set sizes 

SizeAForm Me, DispTop, DispHeight, DispLeft, DispWidth 

SizeAControl textArea, GAP, DispHeight - 2 * GAP, GAP, DispWidth - 2 * GA? 
' initialize 
textArea .Caption - " " 
End S ub 
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'====== ROLODEX form code ====== 

'This form shows the main menu and filter menus. 

' Unimp lament ed ; Have filter button color correspond to type/category cclcr 
Option Explicit 

Dim BlinkControl As Control 'pointer to blinking highlight 
Dim parent As Integer 'number of parent card 

Dim current As Integer 'number of current card 

' special cards 

'note: these must be updated each time the number of filter cards in the card 
datafile changes 

Const filterCARD =1 'TV filter menu 
Const mfilterCARD = 6 3 'movie filter menu 
Const homeCARD = 96 'main menu 

Dim lastCard As Integer 'holds number of regular card while in filter 

Const MAXTITLE - 3 'WARNING: A change in MAXTITLE req-Jires a change in code fo: 
LoadGraphics 

Const CARDSHIFT =2.5 'for card display- -amount change in card placement 

Const MAXROWS = 3 ' for card display- -number of rows of buttons 

Const MAXCOLS = 3 'for card display-number of columns of buttons on a card 
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Ccr.sr r-tAXCARD - 9 "max number of cards ::hat can be displayed on screen 
Const r<AXITEM = 9 'max number of buttons on a card 

"action codes: tell what action to take for a button choice 
'actions greater than actNEXT need additional input 
Const actCOMING = 2 
CcnsL actNOW = 3 
Const act.VEXT = 5 
Const actALPKASHOP - 6 
Const act FILTER = 7 
Const actALPKATV = S 
Const actALPKAMOV = 9 
Const actDOMJ^IN = 10 
Const actLATER = 11 
IS Const actWEEK = 12 

Const actWKEND = 13 
Const actSCHED = 14 
Const shortTWIEW = 33 
Const shortMWIEW = 31 
Const shortSPVIEW =32 
Const shortTVNOVJ = 3 5 
Const shortTVFAV = 3 5 
Const shortM'v/rAV = 37 
Const short SPFAV = 3 3 
Const actMOVIE = 4 0 
25 Const actSTORE = 5 0 

Const actDEPT = 52 
Const actMORE = 60 
Const actNONE = 6 5 
■ for development only 
Const actKEYS = 71 
Const actTABS =72 
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Sub Animate (direct As String, cardNo As Integer) 

'Animate opening another card, backing up, or selecting a button 
Dim index As Integer 
35 ^in*- depth As Integer 

DoEvents 'do not interrupt another animation 
depth = Cards (current ). level 
Select Case direct 
Case "Back" 

If Cards ( current ). parent > 0 Then 
CCopy sspCardt depth) . sspCont 
sspCont . Visible = True 

Zoom 10, sspCont. sspl tern ( Cards ( current ). sel f ) 
DispiayCard {Cards ( current j .parent) 
45 sspCont . Visible « False 

End If 
Case "Next" 

index = Car ds ( current ). selected 
If index > 0 Then 

CCopy sspltem ( index) , sspCont 
sspCont . Visible ~ True 
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sspConc . BackCoicr = sspCard ( 0 I . EackCoior 
Zoom 10, sspCont, sspCard (depth) 
DisplayCard cardNo 
sspCont .Visible = False 
£nd If 
Case "Select:** 

index = Cards ( current ). selected 
If index > 0 Then 

CCopy sspXtem ( index) , sspCont 
sspCont . Visible = True 

sspCont . BackColor = sspCard { C ) . SackColor 
SizeAControl sspCard(O), 0, 5CC, 0. 'SCO 's-ze of whole 
Zoom IC, sspCont, sspCard(O) 
End If 
End Select 
End Sub 

Sub aiinkStart (C As Control, vis) 
'enable blinking object 
Set BlinkControl = C 
Bl inkControl . Visible = vis 
tmrS 1 ink . Enabled = True 
End Sub 

Sub BlinkStcp (vis) 

'stop blinking object, leaving visiblility as vis 
tmrBl ink . Enabled = False 
If BlinkControl Is Nothing Then 

'do nothing 
Else 

BlinkControl - Visible = vis 
End If 

Set BlinkControl = Nothing 
End Sub 

Sub ButtonAction () 
35 'perform action associated with selected buttcn 

Dirr. button As Integer 
Di.-n cardNo As Integer 
Din\ msg As String 
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button = Cards (current ). selected 'item -u^Ti^er of selected button on parent card 
cardNo = Cards ( current ). item ( but ton ) 'card nujrJoer of selected button 
If button < 1 Then Exit Sub 

Select Case Cards I cardNo ). act :ionCode 
Case actNONE 

'an inactive button 

Setlnfo "This option is not yet available.", greyCOLOR 
Case actNEXT 

'display the next card 

Ani.T.ate "Next", Cards ( current ). item ( but ton ) 
Case actDOMAIN 

'change current domain before going to the next card 
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currDomain = Vai (Cards (cardNo) .act lonDaia) 
SecStatus Cards ( car d>4o ). name . greyCOLOR 
Animate "Next", Cards (current !. i ter: ( but ton ) 
Case actMORE 

'show more choices on same topic (currently same as actNEXT) 

Ajnimate '*Nexc", Cards { current >. i t em. { but ton ) 
Case actCOMING 

'show schedule cf what's coming up on TV 

Ani.-nace "Select", 0 

sa.T.eFilter - False 

Set views { currDomain) = frmComing 

returnCcde = SHOvrviEW 

Me. Hide 
Case actNCW 

' show wha t * s on TV now 

currView{ currDomain) = "TV 6:3 0pm : " 'obviously, -his would be the current 



Animate "Seleci" , 0 
saineFil ter = False 
sameView = True 

Set views ( currDomain) - 1 istFrm ( currDomain ) 
returnGode = SHOWIEW 
Me.Hxde 
Case actLATER 

' show what ' s on TV for a later day 

'currently non- functional 

'Animate "Select", 0 

'sameFilter = False 

'Set views (currDomain) = frmFricay 

returnCode = SHOWIEW 

Me . Hide 



'show TV schedule for weekdays 

Animate "Select**, 0 

sameFilter = False 

Sec views { currDomain) = frmWkday 

returnCode = SHOWIEW 

Me . Hide 
Case actWKEI^JD 

' show TV schedule for weekend 

'currently non- functional 

'Animate "Select". 0 

'sameFilter = False 

"Set views ( currDomain) = frmWkend 

returnCode = SHOWIEW 

Me. Hide 
Case actSCHED 

■ show TV schedule 

'curren-ly non- functional 

'Animate "Select", C 

'sameFilter - False 

'Set views ( currDomain) = frr.Sched 

re-urnCode = SHOIV^/IEW 
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Case actWEEK 
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Me, Hide 
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Case actALPfiASHO? 

'gee a string from user, search for icer.s beginning with user s: 
•note: this would probably be very different 
^ Animate "Select". 0 

Sets tatus "Shopping, " & Cards ( car dfvo ). name , greyCOLOR 
msg = Cards (cardNo) . actionDaca 
Set Info msg, YELLOW 
Wait frroAlpha 

If returnCcde <> 3ACK And userString <> " " Then 
^0 sameFiiter = raise 

filter s (currDomain) = "iteir." 

Sec views (currDomain) = listFrro ( currDomain ) 
re cur nC ode = SHOWIEW 
Me. Hide 
End If 
Case actALPH.^\T/ 

'allow user to select a show title 
Ani.Tiate "Select", 0 

SetStatus "TJ, " Sc Cards ( cardNo) . name , greyCOLOR 

returnCode = PICK 
20 Me. Hide- 

Case actALPHAMOV 

'This is not hooked up to work, but would probably be 

' a lot like actALPHTV 

'Animate "Select", 0 
2^ Case actFILTER 

'send a new filter to a TV view 

filters (currDomain) = Cards (cardNc ). actionData 
currrilter (currDon'.ain) = Cards ( cardNo ). infotext 
sameFiiter = False 
sameview = True 
30 returnCode = SHOWVIEW 

Me . Hide 
Case actMOVIE 

'show a movie list 
Animate "Select", 0 
If current > homeCAPJD Then 

'the view (a filter) is changing 
currView (currDomain) = Cards < cardNo ). infotext 
viewFilter = Cards ( cardNo ). act ionData 
sameView = False 
sameFiiter = False 

40 Else 

' the category is changing 

currFilter (currDomain) = ": " & Cards ( cardNo ). in fotext 
filters ( currDomain) = Cards ( cardKc ). act ionData 
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san\eView = True 
saneFilter = False 
End If 

Set views (currDomain) = listFrm ( currDomain ) 
returnCode - SHOt>rVIEW 



Me . Hide 
Case actSTCRE 
50 'show a list of stores 
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Animate "Select", 0 

Setlnfo "Choose a store:", TURQUOISE 
SetSta-us "Shopping", greyCOLOR 
sameFiicer = False 
filters (currDor;ain) = "store" 
Set views (currDomain) = listFr?:\ ( currDomain > 
returnCode = SHOWVIEVJ 
Me . Hide 
Case actDEPT 

' show products from a department 
Animate "Select", 0 

SetStatus "Shopping, " & Cards ( cardNo i . infotext . greyCOLOR 
sameFilcer = False 
filters (currDomain) = "dept- 
hs userString = Cards { car dl^o }. name 

Set views (currDomain) = 1 is tFrm ( currDomain ) 
returnCode = SHOtWIEW 
Me. Hide 
Case shortTWIEW 

' Show last "P/ schedule or list 
Animate "Select", 0 
currDomain = TV 

If views (currDomain) Is Nothing Then 

Set views (currDomain) - frmComing 
End If 

25 sameFilter = True 

returnCode = SHOWVIEW 
Me. Hide 
Case shortMWIEW 

'Show lat movie list 
Animate "Select", 0 
currDomain = MOVIE 
If views (currDomain) Is Nothing Then 

Set views { currDomain) = li s tFrm ( currDomain ) 
End If 

sameFilter = True 
35 returnCode = 3HOWIEW 

Me. Hide 
Case shortSFVIEW 

' Show last shopping view 
Animate "Select", 0 
currDomain = SHOP 

If views (currDomain) Is Nothing Then 

Set views ( currDomain } - 1 is tFrm ( currDomain) 
End If 

sameFilter = True 
returnCode = SHOVT/IEW 
4S Me. Hide 

Case short T^/NOW 

' show all TV shows on now 

currFi Iter (currDomain) = "All Categories" 

currViewt currDomain » = "TV 6:30pm : - 'obviously, this would be the current 

z ime 

Animate "Select", 0 
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cu r r Dorria in = TV 
f i 1 cers ( currDomain ) = " '* 
sameFilter = raise 
same View = True 

Set views ( cur r Domain) = listFrr:. ( currDomair. ) 
recurnCode = SHOWVIEW 
Me. Hide 
Case actKEYS 

'Only for development, wouldn't stay 
SetKeys Cards {cardNo ). actionDaca 
SetStatus Cards ( cardNo) . infotext , icemCOLOR 
current = homeCARD 
DisplayCard current 
Case actTA3S 
;5 'only for development 

ToggleTabs 
Case Else 

MsgBox "Bad action code for card " & Cards ( cardNo ). name 
Stop 
End 
End Select 
End Sub 
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Sub ChangeSel (direct As String) 
'do button navigation 
25 Dim n As Integer 

Dim last As Integer, Sel As Integer 

a = Cards ( current ) -Nit ems 

last = Cards ( current ). selected 

I"f last = 0 Then Exit Sub 

If direct = "Right" Then 
'move right with wrap aroxmd 
If last = n Then 
Sel = 1 

Else 

35 Sel = last + 1 

End If 

Elself direct = "Left" Then 
'move left with wrap around 
If last - i Then 
Sel = n 

Else 

Sel = last - 1 
End If 

Elself direct = "Up" Then 
■ move up , no wrap around 
If last > MAXCOLS Then 

Sel = last - MAXC0L3 

Else 

Sel = last 
End I f 

Elself direct = "Down" Then 
' move down , no wrap around 
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If lasz <^ n ' MAXCOLS Then 
Sel = iasc - MAXCOLS 

Else 

5 Sel = last 

End If 
Else 

MsgBox "Bac Direction" 
End 
End If 

10 

Cards (current }. selected = Sel 
CpdateSel 
End Sub 



y5 Sub OisplayCard (index) 

' takes care of displaying menu on screen 

Di.T. depth As Integer 'number of visible cards 

Dim i As Integer 'counter 

Dim ancestor As Integer 'card numbers 

on 

current = index 

parent = Cards ( current ). parent 
depth = Cards (current ). level 



'hide cards after (in front of) current 
25 ^"^^ i = MAXCARD To depth ^ 1 Step -1 

sspTitle(i) .Visible = False 
sspCard(i) .Visible = False 
Next i 



'make sure previous tab names are correct and visible 

30 

ancestor = current 

For i = depth - 1 To 1 Step -1 

ancestor = Cards i ancestor ). parent 
sspTitle ( i ). Caption = Cards (ancestor ). name 
sspCard{i) .Visible = True 
35 sspTitle V i ). Visible = True 

Next i 

' show current card 

sspTitle (depth) .Caption = Cards ( current ). name 
sspCard ( depth ). Visible = True 
''^ sspTitle (depth) .Visible = True 



' show buttons on current card 
Displaylter-.s 
End Sub 

45 

3ub Display I terns ( ) 
'displays buttons on -a card 
Di.Tt Area As SSPanei 
Dim i As Integer 
Dim Dx. Dy, x, Y, w, h 
Dim Nltems As Integer 
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NIcems = Cards (current!) . NItems 

5 Sec Area = sspCard (Cards ( current ). level )' this is a pointer, noc a copy 

*caicuiace s-ze of button 
Dx = Area. Width • .9 / MAXCOLS 
Dy = Area. Height * .9 / MAXROWS 
w = Dx • . 9 • 
If w > 30 Then w = 30 

10 = » 9 

If h > 20 Then h = 20 

ssp31in:<3G. Visible = False 
sspBlinkBG. ZOrder 0 'bring to front 
'place and show each button 
ror i = 1 To NItems 
sspltem( i ). Width = w 
ssprtem( i ). Height = h 

sspltem( i ). Caption = Cards (Cards ( current ). i tem ( i )). name 
If Cards (Cards (current }. Item { i )). acticnCode = actNONE Then 
'turn inactive buttons grey 
sspltem( i ) . BackColor = greyCOLOR 

Else 

sspltem( i ) . BacJcColor = itemCOLOR 
End If 

X = Area. Left * .05 * Area, Width {{(i _ n Mod MAXCOLS 1 - ,5) * Dx 
Y = Area. Top + .05 * Area. Height + ■ Inc ( ( i - 1) / MAXCOLS) * .5) * Dy 
Centerltem sspl terr. ( i ) , x, Y 
sspltem(i} .'zOrder 0 
sspltem{ i }. Visible = True 
Next i 

'make blinker bigger than buttons 
CPlace 2, sspBlinkBG, sspltem(l) 
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* hide unused buttons 
For i = NItems + 1 To MAXITEM 

sspltem( i ) .Visible = False 
Next i 
UpdateSeX 
End Sub 

Sub ForTr._ Activate { ) 

"check for a return code from another form 
sspcont .Visible = False 
Select Case returnCode 
Case BACK 

If curren- < homeCARD Then current = lastCard 
45 Set Status "Use arrows and select or use keypad. " , greyCOLCR 

wispla^-Card current 
■JpdateSel 
Case SHORTCUT 

current = homeCARD 

Se-:Status "Use arrows and select or use keypad.". greyCOLCR 
DisplayCard current 
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UpdaceSel 
Case FILTER 

SetStatus "Use arrows and select or use keypad.", greyCCLOR 
If current < hoTieCARD Then 
DisplayCard current 

21se 

lastCard = current 
Select Case currDomain 
Case TV 

DispiayCard filterCAKD 
Case. MOVIE 

DisplayCard mfilterCAKD 
Case SHOP 

DisplayCard current 
End Select 
End If 
UpdateSel 
Case COMING 

• to get from T^J list view to schedule view 
Cards { current selected = 2 
sameFilter = False 

Set views (currDomain) = frmComing 
returnCode = SHOWVIEW 
Me. Hide 
End Select 
nd Sub 

ub Form_KeyDown (KeyCode As Integer, Shift As Integer! 
Dim index As Integer 
Dim n As Integer 

Select Case KeyCode 
Case 3_BACK 

'Go up in menu hierarchy 

Animate "Back", 0 
Case B_HELP 

InvokeHelp 
Case B.PREVIEV/ 

userStation = 1 

userStart = fakeTime 

returnCode = TOT/ 

Me. Hide 
Case 3_SELHCT 

'Do button action 

ButtonAction 
Case 3_RIGHT 

ChangeSel ( " Right " ) 
Case 3_LErT 

ChangeSel ("Left") 
Case 3_'JP 

ChangeSel ( "Up" ) 
Case 3_DOWN 

ChangeSel {"Down") 
Case 3_?AGEU? 
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Case 3_?AGED0tVN 

'use numeric key pad to choose a but ten directly, -A'itho^-it navigation 
Case 3_1 

5 If Cards ( current ) .NZteirs > 0 Then 

Cards ( current ). selected = 1 
UpdateSel 
ButtonAction 
End If 
case 3_2 

If Cards ( current ) .NI terns > 1 Then 

Cards ( current )- selected = 2 

UpdateSel 

ButtonAction 
End If 

ys Case B_3 

If Cards ( current ). Nltenis > 2 Then 
Cards { current ) .selected - 3 
UpdateSel 
ButtonAction 
End If 
Case B_4 

"If Cards ( current ). Nltems > 3 Then 
Cards ( current ), selected = 4 
Updates el 
ButtonAction 
25 End If 

Case B_5 

If Cards (current ). NI terns > 4 Then 
Cards ( current ). selected = 5 
UpdateSel 
2^ ButtonAction 
End If 
Case B_6 

If Cards (current ) -NI terns > 5 Then 
Cards ( current ). selected = 6 
UpdateSel 
35 ButtonAction 
End If 
Case B_-r 

If Cards ( current ). NI terns > 6 Then 
Cards { current ). selected = 7 
UpdateSel 
ButtonAction 
End If 
Case 3_a 

If Cards (current ). NI terns > 7 Then 
Cards ( current ). selected = 3 
45 UpdateSel 

ButtonAction 
End If 
Case B_9 

If Cards (current ) .NItems > 3 Then 
Cards ( current ). selected = 9 
UpdateSel 
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End If 
esse 3_0 

current: = homeCARD 

DisplayCard current 
Case Asc ( "Q" ) 

End 
End ieiec- 
5ub 



Sac r orm_Load ( ) 

'set foncs and colors 

sspCard { C ) . BackCoior = backgroundCOLCR 
sspTit ie ( 0 ) . BackColcr = cackgroundCCLOR 
^5 sspItenK 0 } . BackColor = icemCCLOR 

ssp3iinkBG. BackColcr = highlightCOLOR 
3spl cem ( C ) . FontSize - mediumFONT 
sspCarc ( 0 ) . FontSize = mediuinFONT 
sspTit ie ( G ) . Fcn^Size = mediuinFONT 
Me.BackColor = for-COLOR 
' ^i^ into display area 
SizeAFcrm Me, dispTop, dispHeighc, dispLeft. dispVJidcn 
Me. Scale (0, Oj-(100, 100) 
'sec global return code to default 
recurnCode = BACK 
^5 'read in menu hierarchy for rclodex 

PcpulateCards 
' load graphical obiects 
LcadGraphics 

' set current card on screen 
DisplayCard homeCARD 
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End 



Sub loadGraphics ( ) 

Dim i As Integer 'counter 
Dim -abHeight 

35 

' load buttons 

For i = 1 To MAXITEM 

Load sspltem(i) 
Next i 

40 

' shape prototype card 

sspCard ( 0 ) . Top = sspl tem ( 0 ). Height 

35pCard(0} .Height = 100 - CARDSKIFT - sspCard ( C ) . Top 
S3pCard(0) .Left = 2 • CAROSHIFT 
sspCard{0) .Width = 100 - 4 * CARDSKIFT 
^5 "shape protot^rTJ^ tab 

sspTi r le ( 0 ) . AutoSize = False 

sspTi t le ( 0 ). Width = sspCard ( 0) . Width / MAXTITLE - CARDSHIFT 
' load and shape cards and tabs 
ror ■ = 1 To MAXCAP.D 
-cad sspCard(i) 

sspCard ( i ). Height = sspCardd - 1). Height - CARDSKIFT 
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SSpCarG(i) . Top = sspCarcCi - 1 ) . Top - CARDSKIFT 
sspCard til. ZCrder 
Load s£pTicla(i) 

5 sspTicle ( i ) . Top = sspCard { i ) . Top - sspTi tl e ( 0 ). Heigh- ■h 

Select Case fi Mod MAXTITLE) 

'noce: these cases are net flexible for different MAI^TI"! 
Case 1 

sspTi ::le ( i ) . Lert = sspCard ( i ) . Lef t: 
Case 2 

sspTicle { 1 ). Lefc = sspCardd ; . Lef- - sspCard < i } . Wxdt 
sspTitle I i ) . VJidth / 2 
Case 0 

sspTi tie ( i ). Left = sspCard ( i i . Le f z ^ sspCard ( i } . Wid:: 
End Select 
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sspTi tie ( i ) . 20rder 
>Jex- i 
E"d Sub 



Sub PopulateCards ( ) 

'This subroutine reads in -he card data from zhe 
'CARDFILE file defined as a constant. The cards 
•will be nuirOberec 1 to the number cf lines (cards) 
'in the file. Ail special cards should come before 
'the home card (by convention), and are named as 
' constants in the declarations. Each card record 
should have a level (integer), item selected (integer;, 
a name (string), an info string (string), and 
an action code (integer). If che action code is greacer 
-han actNEXT, one additional input (variant type) is read 
*cr the card . 

Din last As Integer, parent As Integer 
Di.Ti selected As Integer 
Dir. index As Integer. itemJ^o As Integer 
Dim level, title, text, action 
Open CAKDFILE For Input As #1 

35 'make duirjny parent for top level 

index = 0 

Cards ( index) - name = "root" 
Cards ( index) . level = 0 
Cards ( index) .NItems = 0 
While Not EOF ( 1) 
•^^ las:: = index 

index = index + 1 

Input #1, level, selected, title, text, action 
Cards (index) .level = level 
Cards (index) .selecced = selected 
45 Cards ( index) . name = tit:le 

Cards ( index) . infotext = text 
Cards I index )- act icnCode = acticn 
If action > ac tN'EXT Then 
Input si, action 

Cards ( index) . act ionData = accion 
SO End :5 
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Cards ( index I . MI te-ns = 0 'initialise n-urrOser of items 
rf Cards ( index ). level = Cards ( las c level * I Then 
•Child of last 
^ parent = last 

=:iself Cards { index) . level <= Cards ( last ). level Then 
'Sibling or cousin, back up tc find parent 
Do While (Cards { index) . level < Cards ( last ). level ) 
•Find last sibling 
last = Cards ( last ). parent 
10 Loop 

parent = Cards ( las t i . parent 
Else 'Skipped a level, text file is incorrect 
MsgBox "3ad level m text file." 
Stop 
End 
End If 

Cards ( index ). parent = parent 
'Add self to parent's list of items 
i-emNo = Cards ( parent ). NX terns ^ 1 
Cards ( parent ) .NIterrs = itemNo 
Cards ( parent ). item ( i temNo ) = index 
Cards ( index) . self = itemNo 
Wend 

Cards ( C ) . N'l terr.s = 1 
Close #1 
End Sub 

25 

Sub tmrElink_Ciir.er ( ) 

BimkConcrol . Visible = Not Bl inkControl . Visible 
End Sub 

30 Sub TcggleTabs ( ) . 

'toggles offset of tab placement; development only 
Dim i As Integer 
Static offset 
If offset =3.5 Then 

offset = 2 
Else 

offset = 3.5 
End If 

For i = 1 To 9 

sspTitlefi) .Top = sspCard(i) -Top - sspTi tie ( C ). Height + offsec 
40 Mext i 

End Sub 

Sub Updates el ■ ) 

'put blinking highiighz in correct location, update info bar 
Dim i As Integer 
Him X.' Y 
Oim S As SSPanel 
Dim texc As String 
Dim color 

50 SlinkStop False 'turn blinking off 
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i = Cards (current ). selected 

If i > 0 Then 'something is selected 

Set S = sspltem(i) 'S is pointer to button 

' find center of button 

X = S.Left + S. Width / 2 

Y S.Top + S. Height / 2 

'put blinker behind button 

Centerltem sspBlinkBG, x, Y 

' resume blinking 

Bl-nkStart sspElinkBG, True 
End If 

text = Cards ( Cards ( current ) . i tem { Cards { current ) .selected) ) . infotext 
color = ss?Iteir.(Cards (current) . selected) .3ackColor 
Setlnfo text, color 
End Sub 

S'wb Zoom (n As Integer, C As Control, Dest As Control) 
•animates control C changing size to control Dest 

Dim i As Integer, j As Integer 

Dim dl, dw, dt. dh 

dl = (Dest. Left - C.Left) / n 

dw = (Dest -Width - C, Width) / n 

dt = (Dest. Top - C.Top) / n 

dh = (Dest. Height - C. Height) / n 

C . ZOrder 

C-AutoSize = False 
For 1 = 1 To n 

C.Move C.Left * dl , C.Top + dt , C. Width + dw, C. Height * dh 
C. Refresh 
Next i 
End Sub 

' ====== SELECT form code ====== 

'This form is another attempt at alphabetic input that allows only valid input. 

It relies on the T\' titles database which has two tables. The reference table ^s 
used first 

and contains a count of all items starting with each letter of the alphabet or 
with a 

sy:TU3ol or number. The user is first presented with a list of possible star-'ina 
letters' 

(each item in the first on-screen list may have several letters it) . Once a 
starting 

getter is chosen, a snapshot is made of matching entries from the table of titles. 
■ _Each list the user sees has only valid cho:.ces for the next letter, or full titles 



a particular title is distinguished from all others by the letters chosen so far. 
The best way to understand is to see the form in action before reading the code" 
^5 The code could easily be modified to work with other data such as lists of movies 

etc . 

'note: the non-proportional font used in the itemBoxes is Courier New 
Option Explicit 

Dim DB As database 'the full database 
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- list(lOOC) As String 'the list of selection strings 
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Dirr. leafdOOC) As Integer True if nth item is a leaf, false otherwise 
3 IT. list End As Integer 'number of last element in list 
i:!.-. currPrefix As String 'the letters chosen so far 
^ initialList As Integer 'boolean 'true if this list has multiple letters per item 

D^.-n ElmkControl As Control 'not used, currently no blinking object 
Dirr. itemSelected As Integer 'from 1 to MAXDISPLAY 
DirTi iocSelected As Integer ^ f rom 1 to MAXLOC 

-i.T. rowOffset 'difference between tops of two consecutive reduced items 

10 database 

ZiTT. ailData As snapshot 
Zirr, filterData As snapshot 

Dim marker (100) As String ' boo:<mar}cs of each MAXDISPLAY items 
Dim locStart (IGC) As Integer ' r Item index for start of locator 

75 

•display parameters 

Const MAXDISPLAY = 6 'Number of items in close up 
Dim MAXITEM As Integer 'Number of items in whole list 
Dim MAXLOC As Integer 'Number of locator positions 

Dim whichrItem(MAXDlS?LAY) As Integer 'which ritems are in the current display 
20 Const GAP = 10 'space around lists 

Const EXTRA = 70 'room for longer programs 

Const reducedEXTRA = 20 'room for longer programs in reduced rep 
Const T = 50 
Const H = 1000 - 2 • T 
Const locL = 30 'for reduced list 

Const locW = IOC 
Const dispL = locW + 2 » locL 'for display lis- 
Const dispW = lOCC - dispL - locL 

Sub BlmkStart {C As Control, vis) 
30 Set BlinkContral = C 

BlinkControl .Visible = vis 
tmrBlink . Enabled = True 
End Sub 

Sub BlinkStop (vis) 

tn^jrBl ink . Enabled = False 
If BlinkControl Is Nothing Then 'do nothing 
Else 

BlinkControl .Visible = True 
End If 

"^0 Set aiinkControl = Nothing 

End Sub 

Sub ChangeLoc (direct As String) 
■ page , up or down wich the locator 
Select Case direct 
Case -Up" 

If IocSelected > 1 Then 

IocSelected = IocSelected - I 
RedcDisplay 
Eno I f 
50 Case '*Dcwn" 
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If iocSelecced < MAXLOC Then 

locSelecc.ed - locSeiected ^ 1 
RedoDisplay 
End If 
End Selec- 
End Sub 

Sub Char.geSei {direct As String) 
' Perforrr. list navigation 
Seiec" Case direct 
Case "Up" 

If itemSelected > 1 Then 

'move up within iterr.s currently displayed 
itemSelected = itemSelected - 1 
15 selector-Top = i teir3ox { itemSelected) . Top - GAP 

rItem(01.Top = locator. Top - rowOffset • (itemSelected - 1) 
Setlteminf o 
Elself locSeiected > 1 Then 
'display previous section of the list 
itemSelected = MAXDISPLAY 
locSeiected = locSeiected - 1 
RedoDisplay 
End If 
Case "Down** 

If itemSelected < MAXDISPLAY Then 
2S ' rr.ove down within items currently displayed 

' do not move to select an empty item 

If (locSeiected - 1) * MAXDISPLAY + itemSelected < MAXITEM Then 
itemSelected = itemSelected 1 

selector. Top = itemBox ( itemSelected) . Top - GA? 
rItem(0).Top = locator. Top + rowOffset * (itemSelected - 1} 
Setltemlnfo 
End If 

Elself locSeiected < MAXLOC Then 
'display next section of list 
itemSelected = 1 
35 locSeiected = locSeiected * 1 

RedoDisplay 
End If 
End Select 
End Sub 

Sub Deselect ( ) 

finish with leaf value or create a new list based on user's choice of prefix 
Dim index As Integer 
Dim count As Integer 
Dim i As Integer 
45 Dim. nextChar As String 

Dim. looking As Integer 'boolean 
Dim title As String 

index ~ locS tart ( locSeiected) f itemSelected - 1 'index -n list of i-em 
selected 

If leaf ( index > Then 



55 



49 




EP 0 735 749 A2 



10 



25 



■selection made; show next view 
title = r enoveAnper sand (list ( index) ) 

f il terData . FindFirst "SelectTicle ^ Sc title St " '* " " 

:f filterData.NoMatch Then 

Do 'prompt for different title until found 

'note: this should never happen, it's only in the list if it's in the 

database 

title = InputBox { title & " not found. Enter new title:", title) 

f ilterData.FindFirst "SelectTitle = i title & 

uoop Until Not f xlterData .NoMatch 
H:nd If 

userString = f il terData { " FullTi tie " } 
Set views (TV) = frmWeek 
sameFilter = False 
15 returnCode = SKOWVIEW 

Me. Hide 

Else 

' indicate to user that something is happening 
itemBox ( itemSelected) .3ackColor = greyCOLOR 
Setlnfo "Loading data, please wa^t...", greyCOLOR 
. Dc Events 

1 = Len ( list { index) ) 

currPref ix - •• " 

If initialList Then 

currPref ix = list (index) 

Else 

'remove underline formatting iSc) from prefix 
If i > 2 Then currPrefix = Left ( list ( index) , i - 2) 
currPrefix = currPrefix i Right ( lis t ( index) , 1) 
End If 

SetStatus "TV Titles starting with * i currPrefix, greyCOLOR 
'construct new list 
If initialList Then 

'list items are special, not prefixes 
If index = 1 Then 

'Symbol or Number selected 
35 initialList = False 

filterData. Filter = "SelectTitle < 'A'** 
currPrefix = " * 

Else 

'a list of letters selected 
listEnd = 0 

For i = 1 To Len(currPref ix) 

'strip out the letters (ignore commas) to make a new list 
If Mid (currPref ix, i, i) >= "A" Then 
listEnd = listEnd * 1 

list ( listEnd) = & Mid { currPref ix , i, 1) 

45 ieaffi} = False 

End If 
Next i 
End If 

Else 

"refilter data to match the new prefix 

filterData. Filter = "SelectTitle li:<:e ' " u currPrefix & " * • 
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End If 

' data assumed co be already sorted 
5 If Not inxzialList Then 

'still need co create new list frc^i data 

Set filterData = f ii terData . CreateSnapshot ( ) 
f il terData . MoveFirst 
listEnd = 0 

For i = Asc ( " " ) To Asc("2") 'space, punctuation, and letters 
'note: should be fixed up by not trying every single one, go strign: 
next db item's char 

count = C : looking = True 

tVhile Not filterData . EOF And looking 

nextChar = Mid ( fil terData (" SelectTitle ")/ Len ( currPref ix ) - 
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It nextChar = Chr ( i ! Or nextChar = LCase (Chr ( :l n Then 
count = count * 1. " 
filterData .MoveNext 

Else 

looking = False 
End If 
Wend 

Select Case count 
Case 0 'do not add to list 
Case 1 ' make a leaf entry 
25 filterData .MovePrevious 

listEnd = listEnd 1 

list ( listEnd) = f ixAmpersand (( filterData (" SelectTi tie ")) ) 
leaf ( listEnd) = True 
filterData . MoveNext 
Case Else 'make a non-leaf entry 
filterData . MovePrevious 
listEnd = listEnd + 1 

list (listEnd) ^ currPrefix k & Chr ( i ) 'underline new char 

•note: underlining is just one mechanism for emphasizing what is 

different 

35 leaf ( listEnd) = False 

f i 1 1 er Da t a . MoveNext 
End Select 
Next i 

If filterData . RecordCount <= MAXDISPLAY Then 

'redo the list to have just leaves in it, if they ail fit in one 
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list End = 0 
fil terData . MoveFirst 
While Not filterData , EOF 
listEnd = listEnd * 1 

45 list ( listEnd) = f ixAmpersand (( filterData r'SelectTitle ")) ) 

leaf ( listEnd) = True 
filterData . MoveNext 

Wend 
End I f 
End I: 

50 
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'displ.ay the newly created lisc 

i cer^Box ( iterr\Seiected) . BackCclor = itemCOLOR 'restore itemBox color 
ir.LtialList « False 
If listEnd > 1 Then 
^ NewList 
Else 

'automatically select item if only one in list 
locSelected = 1 
i temSeiected - 1 
10 Deselect 
End If 
End If 
End Sub 
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Sub ForT7._Activa te ( ) 
'always begin with initial list 
LoadData 
NewList 
End Sub 

20 Sub FcriT'._:<eyDown ( KeyCode As Integer, Shift As Integer) 

Select Case KeyCode 
Case Asc ( "Q " ) 

End 
Case B_BACK 

'note: do we want ability to back up one level from a particular choice in 
the list? 

' Could have B_BACK go back one list then back to menu after another press. 
returnCode = BACK 
Me -Hide 
Case B_HEL? 
30 InvokeHelp 
Case B_PRE^/IEW 
Case 3_SELECT 

Deselect 
Case B_UP 

ChangeSel ( '*Up" ) 
Case B_DOWN 

ChangeSel ("Down") 
Case B_RIGHT 
Case 3_LEFT 
Case 3_PAGEUP 
40 ChangeLoc {"Up") 

Case 3_PAGEDOWN 

ChangeLoc { "Down" ) 
Case 3_FILTER 
Case B_G 

returnCode = SHORTCUT 
Me . Hide 
End Select 
End Sub 

Sub Form_Load ( ) 
50 i As Integer ' counter 
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Dim itemRoon 

'sec colors and fon^s 
i teroBox ( C ) . FontSize = largeFONT 
rightArrcw{ 0) . FoncSize = largeFONT 
rltem(01 . BackColor = icemCOLOR 
selector . FillColor = highl ightCOLOR 
displayList . FillCoior ~ backgroundCCLOR 
locator . FillCoior = backgroundCCLOR 
icemEox ( 0 ) . BackColor = itemCOLOR 
rightArrow( 0 ) -BackColor = icemCOLOR 
shpSloc . BorderColor - slotCOLOR 
's:Lze and place the objects to the screen 
S:LzeAForm Me, DispTop, DispHeight, DispLett, DispWidth 
15 Me. Scale (0, 0}-(1000, 1000) 

SizeAConcrol locator, T - GAP, H ^ GAP, iocL - GAP, locW 2 * GA? 
SiseAControl shpSlot, T, H, locL + reducedEXTRA, locW - 2 * reducedEXTPJV 
SireAControl displayList, T - GAP, H + GAP. dispL, dispW 
locator . ZOrder 
shpSlot . ZOrder 
rItem(C ) . ZOrder 
itemRoom = H / MAXDI SPLAY 

SizeAControl itemBox(O), T + (.5 * GAP), itemRoom - GAP, dispL + EXTRA d- spW 
2 • SXTRA 

SizeAControl lef tArrow ( 0 ) , T + (.5 * GAP), itemRoom - GAP, dispL, EXTRA 
25 SizeAControl r ightArrow ( 0 ) , T + (.5 * GAP), itemRoom - GAP, dispL * di?:;i:W - 

EXTRA, EXTRA 

SizeAControl selector. T, itemRoom ^ GAP, dispL, dispW 
selector . ZOrder 
For i = 1 To MAXDISPLAY 
Load itemBox(i) 
itemBox ( i ) .Visible s False 
itemBox ( i ) .Top = i temflox ( 0 ) , Top + (i - 1) * itemRoom 
Load rightArrow( i ) 

rightArrow(i) .Top = iteir3ox ( i ) . Top 
Next i 
^5 End Sub 

Sub LoadData ( ) 

Dim re f Snap As snapshot 

Const MAXTOGETHER = MAXDISPLAY 'number of letter allowed m one itemBox 
Dim together 

■ fill initial selection list 
list End = 0 

Set D3 = OpenDatabase(TVTitles) 
Set allData = DB . Crea teSnapshot ( "Ti t ies " ) 

'create initial list 

Set refSnap = DB . CreateSnapshot ('* Reference*' ) 
ref Snap . MoveFirs t 

together = MAXTOGETHER 'indicate need for new item 
While Not ref Snap. EOF 

Select Case re f Snap <" Number " ) 
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Case 0 

'do noz add co List 
Case 1 

'make a leaf entry 
listEnd - liscEnd + 1 

ailDaca .FindFirst " Selec tTi t ie like " & ref Snap (** Letter" ) & " • " 
list ( listEnd} = ailDaca ( "SelectTi tie " ) 
leaf ( list End J = True 
together = MAXTOGETHER 
Case Else 

If ref Snap ( "Letter" ) = # " Then 
listEnd = listEnd + 1 
list { listEnd) = "Symbol or Number" 
together = MAXTOGETHER 
^5 'note: DoSelect relies on this entry being the first list item 

Else 

If together >= MAXTOGETHER Then 
liscEnd = listEnd ^ 1 
-list ( listEnd) = re f Snap (" Letter " ) 
together = 1 

Else 

list (listEnd) = list (liscEnd) & • , - & ref Snap ( - Let ter - ) 
together = together + 1 
End If 
End If 

25 leaf (listEnd) = False 

End Select 
ref Snap . MoveNext 

Wend 

Set filterData = allData 
mitialList = True 
End Sub 
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Sub NewList ( ) 

'remakes the display for a new list 

'note: should itemSelected be initialized to something other than 1? 
35 Dim i As Integer 'counter 

Dim section As Integer 'count the number of locator locations 
Dim msg As String 
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•clear captions 

For i = 1 To MAXDISPLAY 

itemBox ( i ). Caption = 

Next i 



For i = 1 To MAXITEM 
Unload rltem(i) 
45 ::ext i 



MAXITEM = listEnd ' n'orJoer of items in list 

' load the reduced item shapes and size relative to MAXITEM 
rcwOffset = {H - r I tern ( 0 ). Height ) / MAXITEM 

If rowOffset > r I tern ( 0 ). Height + GAP Then rowOffset = rl tem ( 0 ). Height ^ GA? 
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rltem(O) .Visible = False 
rl tem{ 0) . Top T 

rltem(O) . Lef c = locL reducedEXTRA 
rItemCO) .Width = locW - 2 * reducedEXTRA 
rltem(O) . BackColor = itemCOLOR 
f ilterData . MoveFirst 
■size and place che item shapes 
'and set section bookmarks 

section = 0 'number of locator locations 

For i = 1 To MAXITEM 
Load rltem(i) 

rltem(i) .Top = t + ( i - 1 ) * rowOffset 
If {(i - 1) Mod MAXDISPLAY) - 0 Then 
'begin a new locator location 
IS section = section i 

locStart (section) = i 
End If 

If Not leaf (i) Then 

rltein(i) .Width = rl tern ( i ). Width - reducedEXTFA 
End If 

ritem ( i ) . ZOrder 
rlteni( i ) .Visible = True 
Next i 

MAXLOC = section 

locStart { section +1) = MAXITEM + 1 

25 

'set length of minselectcr 

'use rltem(O) as mini selector 
rltem(O) .Left - locL - GAP 
rIteiTKC) .Width = locW - 2 * GAP 

'initialize selector and locator 
itemSelected = 1 
locSelected = 1 

rltem(O) .BackColor = highlightCOLOR 

25 'set the captions in the itemBoxes 

RedoDisplay 
End Sub 
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Sub RedoDisplay ( ) 
set the captions in the itemBoxes to correspond to items in locator 
'reposition locator, selector and set item info in info box 

Dim last As Integer ■ nu^Ti^er of last item in display 
Dim i As Integer 'counter 

Dim index As Integer 'index of item m list 

index = locStart ( locSelected) 
For i ^ 1 To MAXDISPLAY 

If index > MAXITEM Then 

'hide empty itemSox 

itemBox ( i ) .Caption = 

item^ox ( i ). Visible = False 
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righc:Arrow( i) . Visible = False 

Else 

icemBox ( i ). Caption = lisc(index) 
If Not leaf (index) Then 

'show right arrow and put in all caps 
rightArrow( i ) .Visible = True 
itemBox ( i ) .Caption ^ UCase i 1 ist { index) ) 

ilse 

rightArrowt i ). Visible = False 
End If 

i temBox ( i ) .Visible = True 
last - i 'remember last valid selection 
index = index + 1 
End If 
15 Next i 

'Do not allow blank to be selected 
If itemSelected > last Then 

itemSelected = last 
End If 

20 

' fix the rest of the display 

displayList. Height = H -k 2 * GAP - (H / MAXDISPLAY * (MAXDISPLAY - last)) 
selector. Top = i temEox ( itemSelected) . Top - GAP 
locator. Top = T rowOffset * ( locStart ( locSelected) - 1) 
25 locator . Height = last • rowOffset + rltein(O) .Height - rowOffset 

rItem{0).Top = locator. Top + rowOffset * (itemSelected - 1) 
rltem ( 0 ). Visible = True 
Setl ter.Inf o 
End Sub 

30 

Function removeAmpersajid (oldText As String) As String 
' for each double 2unpersand, remove one of them 

Dim text As String 

Dim newText As String 

Dim i As Integer 

text = oldText 
newText = " " 
While InStr(text, "&&") 

i = InStr(text, -&&-} 
newText ~ newText & Left (text, i) 
text = Right (text, Len(text) - (i + 1)) 
VJend 

removeAmpersand = newText & text 
End Function 

45 3ub Setltemlnfo () 

'put rhe relevant info for current item into info box 
Cim msg As String 
Dim index As Integer 
Dim F As snaoshot 
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If Me. Visible Then 
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index = locScarc { locSelected) - i temSelec ted - 1 
I f leaf ( index) Then 

'get full tide from data 

Set F - f ilterData 

F.FindFirst -SeiectTitle = " " " i list (index) i 
.-nsg = F{ "FullTitle" ) 

Else 

rn.sg = "Titles beginning with & listlindex) i 
End If 

Setlnfo r?.sg, ( itemBox ( i temSelected) . BackColor ) 



' ====== START form code ====== 

^This startup form allows the developer to choose display mode 

(either for ?C , TV, or mini PC for making screen prints) 

then starts the actual program by calling Main 
Option Explicit 

Sub Form^Load { ) 

returnCode - STARTUP 
End Sub 

Sub mxniButton_Click () 

displayMode = "mini" 

Unload Me 

Main 
End Sub 

Sub PCbutton_Clic)c () 

displayMode - "PC" 

Unload Me 

Main 
End Sub 

Sub TVbutton_Clic< () 

displayMode = "T^/" 

Unload Me 

Main 
End Sub 

' = = = = = = -pv form code = ===_ = 

■This form pretends to show a TV progran-i or record it. if it is not currently on 



End If 



End Sub 



IS 



Sub crrjr31ink_Timer ( ) 

BlinkControl -Visible = Not BlinkControi . Visible 
End Sub 



45 



Option Explicit 



Const GA? = 700 



Sub 



Form_Activate ( ) 
Dim msg As String 



so 
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Di.-n DB As database 
Dim Programs As table 
Dirr. startTime 
Dim re f Snap As snapshot 
Dim refOate 

Dim startTS, finishTS, nowTS 
Set DB - OpenDatabase (TVD3) 

Set refSnap = 03 . CreaceSnapshot { -Reference" ) 
ref Snap . F:LndFirst "Name = * Date ' • 
refDate = DateValue ( ref Snap ( "Data ") ) 
Set Prograir.s = D3 . OpenTable Programs " ) 
P r eg rair.s . Index = "ID" 

Programs . Seek userStaticn, userStart 

'note: ought to check that userStation is valid 

I f Program.s . NoMatch Then 

'simulate showing whatever is currently on userStation 
nowTS = DateDif f { "n'\ refDate, fakeToday ^ fakeTime} \ 30 
Set ref Snap = Programs . CreateSnapshot { ) 
ref Snap. FindFirst "Station = - & Str (userStation) 
ref Snap . FindNext "FinishTS > " & Str(nowTS) 
msg = "You are watching " 

msg = msg & Chr (1 3 ) 4 Format ( ref Snap ( "Tit le ") ) 

msg = msg & " on " & StationString ( ref Snap ( "Station" ) ) 

msg = msg Sc Chr (13) & Format ( ref Snap (" Start ") , "h:mm AM/PM") 

msg = msg & " to " fit Format ( ref Snap <" Finish" ) , "h:mm AM/PM") 

Else 

'decide if the program is on, record if it's not 
startTS =! DaceDif f ( "n- , refDate, Programs (" Start ") ) \ 30 
finishTS = DateDiff < -n" , refDate, Programs (" Finish" ) ) \ 30 
no'-s^S = DateDif f ( "n" , refDate, fakeToday * fakeTime) \ 30 
' nowTS would be calculated to work in real time 
If StartTS <= nowTS And finishTS >= nowTS Then 
msg = "You are watching " 

Else 

msg = "The VCR is set to record " 
End If 

msg - msg & Chr (13) & Format ( Programs ( "Title" ) ) 
msg = msg fit " on " & StationString ( Programs ( "Stat ion" ) ) 
msg = msg t Chr (13) & Format ( Programs (" Start "} , "h:mm AM/PM") 
msg = msg & " to " & Format ( Programs (*' Finish" ) , "h:mm AM/PM") 
=:nd If 

- ext Area . Caption = msg 

d Sub 

b Form_KeyDown (KeyCode As Integer, Shift As Integer) 
Select Case KeyCode 
Case 3_BACK 

returnCode = LASTl^TZW 

■note: this is not appropriate if we came from menu (rolodex) 
Me. Hide 
Case B_0 

returnCode - SHORTCUT 
Me. Hide 



58 



EP 0 735 749 A2 



10 



15 



Case Asc ( -Q" ) 

End 
Case Else 

returnCode = BACK 

Me, Hide 
End Select 
End Sub 

Sub Fonn_Load ( ) 

CextArea . Caption = 

textArea • FontSize = largeFOKT 

SizeAFcrm Me. 0, ScrHeight , 0, ScrWidth 

S:LzeAControl textArea, GAP. ScrHeight - 2 * GAP, GA^ Sc-Wid^ 
End Sub 



■= = = = = :r TV_GUIDE form code = = = = = = 

General remarks: 

^^The Main procedure starts the ball rolling by showing the Frame, loading 
'all the forms, and then showing the rolodex menu. Control is tranf erred from form 
•to form through the use of the returnCode variable (see list of return codes in 
20 -global declarations). The frmDex, for example, sets the returnCode to 3HOWVIEW, and 

'hides itself. This causes frmFrame to become active. frmFrame looks at the 
returnCode 

'and shows the current domain's view form. Communication between forms is done 
through 

2s variety of variables, since a form.'s procedures are not accessible from outside. 

Option Explicit 

Global Declarations 
'database constants 

Global Const CARDFILE = -c:\pctv\db\cards2.txf 
Global Const MVDB = "c:\pctv\db\plots.mdb- 
Global Const SPDB = "c : \ pctv\db\ shopping . mdb" 
Global Const TVDB = "c : \pct v\db\big.mdb " 
Global Const TVTitles = -c:\pctv\db\titles.mdb" 
Const CATDB = "c:\pctv\db\cats.mdb" 
Dim typeTable As table 'TV type IDs 
Dim catTable As table 'TV category IDs 
Dim statTable As table 'station IDs 
Global fakeToday 'keep the day constant 
40 Global fakeTime "keep the tim.e constant 

Global displayMode As String 'display set for "PC or "TV" {affects size of fonts 
and graphics) 

Global newUser As Integer 'boolean 'when crue, give extra helps 
Global ScrWidth, ScrHeight 

Global DispTop, DispHeight, DispLeft, DispWidth 'display area available to forms 
inside the frame 

' Colors 

Global Const highlightCOLOR = iKSCSOFF 'redish 
50 Global Const backgroundCOLOR - 5iH80FFFF 'yellow 
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Global Const itemCOLOR » iHEFFFCO 'light blue 

Global Const formCOLOR = &HFFOOOO 'dark blue 

Global Const whiteCOLOR = &H80000005 'white 

Global Const greyCOLOR = &HCOCOCO 'grey 

Global Const blackCOLOR = &H0& 'black 

Global Const slotCOLOR = 5cH800O0O05 'white 

Global Const borderCOLOR = «HFF& 'red 

Global Const divideCOLOR = iHFFFFi 'white 

Global ColordO) 'array filled in Main 

' font sizes 
Global Const smallFONT = 13.8 
Global Const mediuiuFONT = 18 
Global Const largeFGNT = 24 

'domain constants 
Global Const MOVIE = 0 
Global Const TV = 1 
Global Const SHOP = 2 

20 'array of list forms 

Global listFrmO) As Form 
Global TVlist As New frmList 
Global MOVlist As New frmList 
Global SHOPlist As New frrnList 
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Inter-Form Corranun:. cation 



Global currDomain As Integer * the current domain 

Global filters (3) As String 'array of query strings for current domain filter 
Global currFilter ( 3) As String 'text name of filter 

Global currView{3} As String 'text name of current view {use mainly for lists which 
change view title) 

Global views (3) As Form 'array of current domain views (TV coming or TV schedule, 
for instance) 

Global viewFilter As String 'the database filter needed to obtain the appropriate 
view 

'note: used only- for movies at this time, would probably be expanded to array 
Global userString As String 'string chosen by user 
Global userMsg 'message string to display to user 
Global userStation 'a station selected by user 
Global userStart 'a time chosen by user 

Global sameFilter As Integer 'boolean 'true if need to refilter data 
Global sameView As Integer 'boolean 'true if need to redo display 

•return codes determine which action to take on re-activate of frmFrame or frmDex 

Global recurnCode As Integer 

Global Const 3ACK = 0 

Global Const TOT\^ = 1 

Global Const LASWIEW = 2 

Global Const SHORTCUT = 3 

so Global Const DONE = 4 
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Global Const: FILTER = 5 
Global Const: COMING = 6 
Global Const SHOWVIEW = 9 
Global Consc ALPHA = 10 
Global Consc PICK = 11 
Global Consc STARTUP = 12 
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Define Type Card 
for rolodex 
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Global Consc MAXITEM = 9 'max n'-imber of buttons on a card 

■Represents one index card as viewed on screen 
Type Card 

self As Integer ' item n^omber of self on parenc 
level As Integer 'number of cards away from root 
name As String ' text to appear on button/card 
infotexc As String 'text for info bar 

actionCcde As Integer 'code for action to take when chosen 
actionData As String 'extra info needed for action 
parent As Integer 'number of parent card 

NI terns As Integer 'number of buttons visible on card 

Item (MAXITEM) As Integer 'array of card pointers (one for each button on card) 
selected As Integer * the number of the selected button 
End Type 

'Array of up to MAXCARDS index cards 
Global Cons- MAXCARDS = 1000 
Global Cards (MAXCARDS) As Card 
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Remote Buttons 
assigned values in sub SetKeys 



50 



Global 


B_BACK 


Global 


B_HELP 


Global 


B_PREVIEW 


Global 


B_UP 


Global 


B_DOWN 


Global 


B_LEFT 


Global 


B_RIGHT 


Global 


B_SELECT 


Global 


B_PAGEUP 


Global 


B_PAGEDOWN 


Global 


B_l 


Global 


B_2' 


Global 


B_3 


Global 


B.4 


Global 


B.5 


Global 


B,6 


Global 


B_7 


Global 


B_8 


Global 


B_9 
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Global B_0 
Global B.rlLTER 



5 

COLORS 



15 



Global 


Const 


RED = StHFFSc 


Global 


Const 


ORANGE 


= ScH30FF& 


Global 


Const 


YELLOV; 


= StHFFFF& 


Global 


Const 


GREEN = 


&H30FF60 


Global 


Const 


TURQUOI 


3E = iHFFFFCO 


Global 


Const 


3LUE = 


iHFFOOOC 


Global 


Const 


VIOLET 


= ficHFFOOFF 


Global 


Const 


WHITE = 


&HFFFFFF 


Global 


Const 


3LACK = 




Global 


Const 


GREY = 


&HCOCCCC 



CONSTANTS FROM VISUAL BASIC FILES * 

20 

' * Frorr. CONSTANT . TXT 
' Key Codes 

Global Const KEY_LBUTTON = StHl 
Global Const KEY_RBUTTON = StH2 
Global Const KEY_CANCEL = StH3 

Global Const KEY_MBUTTON = iH4 ' NOT contiguous with L i RBUTTON 

Global Const KEY.BACK = &HS 

Global Const KEY_TAB = &H9 

Global Const KEY_CLEAR = iHC 
30 Global Const KEY.RETURN = ScHD 

Global Const KEY_SHIFT = &H10 

Global Const KEY_CONTROL = iHll 

Global Const KEY_M£NU = &H12 

Global Const KEY_PAUSE = UH13 

Global Const KEY.CAPITAL ^ iH14 

Global Const KEY_ESCAPE = &H1B 

Global Const KEY_SPACE = &H2 0 

Global Const KEY^PRIOR ^ iH21 

Global Const KEY_NEXT = ocH22 

Global Const K£Y_END = &H23 
40 Global Const KEY_HOME « &H24 

Global Const KEY_LEFT = &H25 

Global Const KEY_UP = ScH2S 

Global Const KEY.RIGHT = ScH21 

Global Const KEY_DOWN = &H28 

Global Const :<EY_3ELECT = StH2 9 

Global Const KEY_?RINT = &H2A 

Global Const ;<EY_EXECUTE = &H2B 

Global Const KEY_SNA?SHOT = fitH2C 

Global Const KEY_xnSERT = &H2D 

Global Const KEY_DELETE = &H2E 
50 Global Const :<EY_HEL? ^ iH2F 
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25 



30 



35 



KEY_A thru KEY_2 are Che same as their ASCII equivalents: 'A' 
• KEY_0 thru KEY_9 are the same as their ASCII equivalents: '0* 

Global Const KEY.MUMPADO = &H60 

Global Const KEY_MUMPAD1 - &H61 

Global Const KEY.NUMPAI!2 = 5cH62 

Global Const KEY_hfUMPAD3 = &H53 

Global Const KEY_NUMPAD4 = &H54 

Global Const KEY_NUMPAD5 = &H65 

Gl-bal Const KEY_NUMPAD6 = iH66 

Global Const KEY_NUM?AD7 = &H67 

Global Const KEV_NUMPAD8 = SeH68 

Global Const KEY_NUMPAD9 = &H6 9 

Global Const KEY^MULTIPLY = &H6A 

Global Const KHY_ADD = &H6B 

Global Const KEY_SEPARATOR - &H6C 

Global Const KEY_SUBTRACT = &H6D 

Global Const KEY.DECIMAL = &K6E 
Global Const KEY^DIVIDE = fitK6F 
Global Consr KEY_F1 = &H70 
Global Const KEY_F2 = &H71 
Global Const KEY_F3 = &H72 
Global Const KEY_F4 = &H73 
Global Const KEY_F5 = &H7 4 
Global Const KEY_F6 = &H75 
Global Const KEY_F7 = ScH76 
Global Const KEY_F8 = SiH77 
Global Const KEY_F9 = &H73 
Global Const KEY^FIO = &H79 
Global Const KEY_F11 = ScH7A 
Global Const KEY.F12 = SrH7B 
Global Const KEY_F13 = iH7C 
Global Const KEY_F14 = iH7D 
Global Const K£Y_F15 = &H7E 
Global Const KEY_F16 = &H7F 



:ru 
:ru 



Global Const KEY_NUMLOCK 



&H90 



40 



Function CategoryString (typeCode As Integer, catCode As Integer) As String 
'creates user-reabable string for a TV program's category 
Dirr. rr.sg As String 



45 



50 



rr.sg = " Category : - 
' look up type code 
cypeTable . Index = "ID" 
typeTable . Seek "=", typeCode 
If typeTable.NoMatch Then 
r^.sg = msg & typeCode 

Else 

.T.sg = msg & typeTable { "Name " ) 
End If 

rrisg = msg i " 'all on one line, replaced: Chr(13) & "Subcategory: " 
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' look up category code 
cacTable . Index = "ID" 
cacTabie . Seek catCode 
If caCTable.NoMacch Then 
msg = msg & cacCode 

Else 

msg = msg & cacTable ( "Name " ) 
End If 

CacegoryStr ing = msg 
Er.d Function 

3ub CCcpy (Cfrom As Control. Cto As Control) 
'copies attributes of CFrom control to CTo 

Cto. Caption = Cfrom. Caption 

Cto . BackColor = Cfrom . BackColor 

Cto. Top = Cfrom. Top 

Cto. Height = Cfrom. Height 

Cto. Left = Cfrom. Left 

Cto. Width = Cfrom. Width 

Cto.FontSize = Cfrom . FontSize 
End Sub 

Sub Centerltem (Item As Control, x, y) 
'centers a control around a point 

Item. Left = x - Item. Width / 2 

Item. Top = y - Item. Height / 2 
End Sub 

Sub CPlace (extra, Cfrom As Control. Cto As Control) 

'place Cfrom in the same place as Cto, with difference extra 

Cfrom. Top s Cto. Top - extra 

Cfrom. Left = Cto. Left - extra 

Cfrom. Height = Cto. Height + 2 * extra 

Cfrom. Width = Cto. Width +2 * extra 
End Sub 

Function DayString (d, length As String) As String 

'returns string for appropriate day of week based on date given 

' and length specified 

Select Case Weekday (d) 
Case 1 

If length = "long- Then 
DayString = "Sunday" 

Else 

DayString = "Sun" 
End If 
Case 2 

If length = "long" Then 

DayString = "Monday" 

Else 

DayString ~ "Mon" 
End If 
Case 3 

If length = "long" Then 
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DayString = "Tuesday" 

Else 

DayString = "Tue" 

5 *^ 
Case 4 

If length = "long- Then 

DayString = "Wednesday" 

Else 

DayString = "Wed" 
10 End If 

Case 5 

If length = "long* Then 

DayString = "Thursday" 

Else 

DayString = -Thur " 
End If 
Case 6 

If length = "long" Then 

DayString = "Friday" 

Else 

20 DayString = "Fri" 

End If 
Case 7 

If length - "long" Then 

DayString = "Saturday" 

DayString = "Sat" 
End If 
End Select 
End Function 



30 Function fixAmpersand (text As String) 

'put in a for every so ainpersana will print instead of fcnr.at an underline 

Dim i As Integer 
Dint oldText As String 
Dim newText As String 

35 

newText = '* - 
OldText = text 
v/hile InStr (OldText , "&-) 
i = InStr {OldText , 
newText = Left ( oldText , i - 1) & 
•^0 oldText = Right { oldText , Len( oldText) - i) 

Wend 

fixAmpersand = newText & oldText 
End Function 



Sub InvokeHeip ( ) 

•add parameter for current location or give each fcrr. a local InvokeHeip 
'would be specialized for each view, probably not each button 

TeilUser "Press Help (?) again for general help, or press any button on the 
remote for help with that button," 
Select Case returnCode 
50 Case BJdELP 
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TellUser "General Help;" 
Case 3_PREryiZW 

TellUser "Use the Preview button to see a video preview of the highlighted 
selection . " 

Case 3_BAC:< 

TellUser "Use the Back button to back ap to the previous screen." 
Case KEY_ESCA?E 

TellUser "Use the Shortcut key to get to the shortcut buttons." 
Case B_SELECT 

TellUser "Use the select button to choose a highlighted option. - 
Case Else 

TellUser "This help screen is not written yet." 
End Select 
End Sub 



Sub Main { } 

Dir. i As Integer 
Din DB As database 
Set OB = OpenDatabase(CATDB) 
Set typeTable = DB . OpenTable ( "Type " ) 
Set catTable = DB . OpenTable ( "Category " ) 
Set DB = OpenDa t abase (TVDB } 
Set statTable = DB . OpenTable (" Stat ions " ) 
Set Keys displayMode 
'set different list forms 
Set listFrmlT'/) = TVlist 
Set listrrm( MOVIE) = MOVlist 
Set listFrm(SHOP) = SHOPlist 
'set color array 

Color (0) = &HBFBFCO 'teal green 
Color (1) = iHFFFFSO 'light blue 
Color (2) = &HFFCOFF 'light pink 
Color (3) = 5eHFFSCFF 'dark pink 
Color (4) = ficKSCCOFF 'medium orange 
Color (5) = &KCOFFCO 'lightest green 
Color (6) = S(HFF8080 'royal blue 
Color (8) = StHFFCOCO ' lavendar 
Color (7) = &HCOCO& 'ochre 
"set date and time 
fakeToday = CVDate ( " 6 / 12 /94 " ) 
fakeTi.Tie = CVDate("6:30 PM" ) 



^0 newUser ~ 



"rue 



'start up the forms 
f rrr.Frame . Show 
pcEvencs 

'load all forms here 
Lead frTTi^ex 
Lead frmAlpha 
Load frm.TV 
Load frmMsg 
' Movie forms 
50 currDomain ^ MOVIE 
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viewFilcer = "Year >= 1993" 
currView( MOVIE) = "Recent Movies" 
currFilter (MOVIE) = All Categories" 
5 SetStatus "Movies", greyCOLOR 

Load listFrmCMOVIE) 
•Shopping forms 
currDomain = SHOP 
filters CSKOP) = " " 

SetStatus "Shcpping, compact disks", greyCOLOR 
Load listFrr\{SHOP) 
'TV forms 

currFilter {TV) = " Basketball " 
currDomain = TV 
filters (TV) = "Category = 39" 
15 userString = "Nova" 

• Load f rmWeek 
'Load listFnr.(TVl 
' Load f rmComing 
' Load f rmWkday 
' Load f rmSelect 

20 

' show main menu 

SetStatus "Use arrows and select or use keypad.". greyCOLOR 
f rmDex . Show 
End Sub 

25 

Function Overlap (beginTS, endTS ) As String 

'create query string to look for TV programs in the range between 
* and including beginTS and endTS 

Overlap = "(StartTS <= " & Str (endTS) & " And FinishTS >= " & 3tr( beginTS) i 
End Function 

Sub Setlnfo (text As String, Color) 
'update the info box text and color 
Dim s As SSPanel 

Set s = f rniFrame ! sspinf o 'works as long as form is loaded 
35 s.BackColor = Color 

s. Caption = text 
End Sub 

Sub SetKeys (mode As String) 

'Sec the keymappings for keyboard or "remote" 
B_l = KEY_NUMPAD7 
B_2 = KEY_NUMPAD8 
B_3 = KEV_!sRJMPAD9 
B_4 = KEY_rrjMPAD4 
3_5 = KEY_I^JMPAD5 
45 r KEY_NUMPAD6 

3_7 = KEY_NUMP.^^1 
3_8 = KEY_C^JMPAD2 
3_9 = KEY_rvrJMPAD3 
If mode = "TV" Then 

'use keypad for all buttons (except 1-9) 
B_3ACK = KEY_SUBTRACT 
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B_HEL? = 13 'I don't kr.ow what the name of this key is 
9_PREVIEW = KilY.ADD 
B_'JF = Asc ( "8" ) 
B_DCWN = Asc ( "2 " ) 
B_LEFT = ASC ( "4" ) 
B^RIGHT = Asc( "6" )■ 
E_3EL£CT = Asc ( " 5 " ) 
3_PAGEU? = KEY_DIVIDE 
B_PAG£DOWN = Asc ( " 0 " ) 
3,0 = KEY.MULTIPLY 
3_FILTER = KEY_RETURK 

Else 

3_3ACK = KEY_F1 
3_HELP = KEY_F3 
^5 B_?RSVIEW = KEY_F2 

B_U? = KEY_UP 
B_DO™ = KEY_DOWN 
B_LEFT = KEY.LEFT 
B.RIGHT = KEY_RIGHT 
B_SELECT = KEY_RETURN 
B_PAGEUP = KEY_PRIOR 
B_PAGEDOWN = KEY_NEXT 
B_0 = KEY_NUMPADO 
B.FILTER = KEY_F4 
End If 
25 End Sub 

Sub SetStatus {text As String, Color) 
'update the status bar with new message 
Dim s As SSPanel 

Set s = f rmFraiTLe ! sspStacus ' (works as long as form is loaded) 
s.BackColcr = Color 
s. Caption = text 
End Sub 

Sub SizeAControl (Item As Control, t, H, 1, w) 
^5 'set the size attributes of a control 

Item. Top = t 
Item. Left = 1 
Item. Height = H 
I tern. Width = w 

40 ^"""^ 

Sub SizeAForm ( f rm As Form, t, H, 1. w) 
'set the size attributes of a form 

frrr-i-Top = t 

frm.Left = 1 
45 irm. Height = H 

frm. width = w 
End Sub 

Function StationString (si As String 

'looks up station number and returns station name as string 
statTable . Index = "ID" 
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sracTabie . Seek s 

If scatTable . NoMacch Then 

MsgBox "illegal station ID " & s 

Stop 
End If 

Scat ionString = statTable ( "Name " ) 
End Function 

Sub TellUser {r.essage As String) 

'displays message on screen until key is pressed 
'probably would not be used 

user Msg = message 

Wait frmMsg 
End Sub 



Function TimeLabel (t) As String 
'returns null string for times on half hour. 
' returns hour 1..12 otherwise 
Dim s As String 
s = FormatU. ••hh:mm AM/PM" ) 
If Mid{s, 4, 2) = "30" Then 
TimeLabel = " " 

Else 

s = Format(s, -h AM/?M"I 
'Strip off AM/PM 
25 TimeLabel = Left{s, Len(s) - 3) 

End If 
End Function 



Function TimeString (aDate) As String 

'format a date as 12-hour time without .\M/?M or leading zero 
DiT. theTime As String 
theTime = Format (aDate, "hh:mm AM/PM") 
theTime = Left ( theTime , 5) 'take just "hh:mm" part: 
If Left ( theTime, 1) = "0" Then 
theTime = Right ( theTime , 4) 
35 End I f 

TimeString = theTime 
End Function 

Sub Wait (F As Form) 

'Allows one form to wait for another to hide itself 
•^^ F.Show 

While {F. Visible) 
DcEvents 

Wend 
End Sub 



' ====== WEEK form code ====== 

Option Explicit 

"stacked channel' view to be used with TJ search and 

'possibly other minimal searches (would need modification in AppiyFilter) 
Dim allData(3) As snapshot 'all data within time period 
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Dim f i i terData { 8 } As snapshot 'a snapshot for each day in che view 

2 in KDays As Integer 'number of days in display 

Dim NSlocs As Integer 'number of time slots in display 

^ Dim NProgs As Integer 'number of programs m display 

Dim coiorField As String 'the database field that determines item color 

'{the field should contain an integer) 
Dim inPreview As Integer 'boolean 'if true, preview should show 
Dim refDate 'reference date for data time slots 
Dim slotsPerDay As Integer ' n-omber of slots allowed per day 

^0 -i^Ti currDay 'number of current day 

Dim dayWidth As Integer 'width of day labels 

Dim IblHeight As Integer 'height of day labels 

Dim infoHeight As Integer 'height of specialized info panel 

Dim. timeHeight 'height of time labels 

Dim scartTime 'beg-.nning time for view 

Dim TSBegin As Long 'first time slot of current day 

Dim TSEnd As Long ' last time slot of current day 

Dim TScurrent As Long 'time slot of current program 

Sub ApplyFilter {) 
, ' filter for a particular show by title m userString 

Dim 1 As Integer ' counter 

"create snapshot for each day 
For i = 1 To NDays 

25 allData ( i ). Filter = '*Title = " " " & userString & 

Set f ilterData ( i ) = allData ( i ) . CreateSnapshot ( ) 
f ilterData ( i ) . Sort = "StartTS" 

Set f ilterData ( i ) = f 11 terData ( i ). CreateSnapshot ( ) 
Next i 
End Sub 

30 

Sub ChangeSel (d As String) 
'perform view navigation 

Dim current ' as database marker 

Dim success As Integer 'boolean 

Dim s As Integer ' station number 

Dim best 

Dim TS As Long 'time slot 
Dim F As snapshot 
Dim aDay As Integer 
Dim marker ' as booxjnark 
^0 Dim arrows As String 

'save values, initialize values 
current = f ilterData ( currDay ) .Bookmark: 
Set F = f ilterData ( currDay ) 
^5 s = F{ "Station") 

TS = TScurrent 
aDay = currDay 
success = False 

Select Case d 
50 Case "Right" 
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'move CO lacer time, same day 
F.FindNexc "StartTS > • & Str(TS) 
success = Not F.NoMatch 
If success Then 

•check if info arrows needed 
TS = F ( -StartTS" ) 
F . MoveNext 
If Not F.EOF Then 

If FC'StartTS"] = TS Then 
10 infcArrows "down" 

Else 

infoArrows "none" 
End If 

Else 

infoArrows "none" 
End If 
F , MovePrevious 
End If 
Case •* Left " 

'move to earlier time, same day 
20 F . FindPrevious "StartTS < ■ St StrlTSI 

siiccess = Not F.NoMatch 
If success Then 

TS = F ( "StartTS" ) 
'go to top of coiumn 
F.FindFirst "StartTS = " u Str(TS) 
TS = FC'-StartTS") 
'check if info arrows needed 
F . MoveNext 
If Not F.EOF Then 

If F{ "StartTS" ) = TS Then 
infoArrows "down" 

Else 

infoArrows "none" 
End If 

Else 

infoArrows "none" 
End If 
F . MovePrevious 
End If 
Case "Down" 

•move to later day, trying to keep close to previous time slot 
"^0 If NProgs < 1 Then Exit Sub * do nothing if all snapshots empty 

aDay = aDay + 1: TS = TS 48 
While Not success And aDay <= NDays 
Set F ^ filterData(aDay) 
F.FindFirst "StarcTS > " & Str(TS) 
If F.NoMatch Then 

45 

no prog to right, look left for any programs 
If Not F.EOF Then F.MoveLast 
If Not F.EOF Then 
success = True 
TS = F( "StartTS" ) . 
50 End If 
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'save program co righc , count -xme slots away, check left 
marker = F . Bookmark 
^ best = "("StartTS") - TS 

F.rindLasn "StartTS <= " i Str(TS) 
If r.NoMatch Then 

'no prog to left, take prograni. to right 
? . 3ookjnark = marker 
TS = TS * best 

10 Else 

'check distances from previous time slot 
If TS - F{ "StartTS" ) > best Then 
'right prog closest 
F. Bookmark - marker 
TS = TS * best 

Else 

' left prog closest 
TS = F { "StartTS" ) 
End If 
End If 

'either way, we found a program 
success = True 
End If 

aDay = aDay * 1: TS = TS + 48 

Wend 

aDay = aDay - 1; TS = TS - 4 8 
If success Then 

'make sure to be at the top of a column 
F.FmdFirst "StarnTS = " & Str(TS) 

If F.NoMatch Then Stop 'how did we get a TS with no program in it? 

TS = F{ "StartTS" ) 

'check if info arrows needed 

F . McveNext 

If Not F.ECF Then- 

If F ( "StartTS" ) = TS Then 
in f oAr rows " down '* 

Else 

in f ©Arrows "none" 
End If 

Else 

in f oAr rows " none " 
End If 

•^0 F . MovePrevious 

End If 
Case "L*p" 

'move to earlier day, trying to keep close to previous time slot 
If N'Progs < 1 Then Exit Sub 'do nothing if ail snapshots empty 
aDay = a::ay - 1: TS = TS - 48 
While Not success And aDay > 0 
Set F = f ilterData{aDay) 
F.FindFirst "StartTS > " St 5tr(TS) 
If F . .^'JoMa t ch Then 

'no prog to right, lock left 
^0 If Not F.EOF Then F.MoveLast 
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If Noc ".EOF Then 

success = True 

TS = r ( "StarnTS" ) 
End If 

^ Else 

'save program to right, count time slots away, look left 
marker = F . Bookmark 
best = r ( " StartTS" ) - TS 
F.rmdLast "StartTS <= " i 5tr(TS) 
10 If r.NoMatch Then 

'no prog Co left, rake program to right 
F. Bookmark = marker 
TS - TS best 

Else 

'check distances 

If TS - F("3tartTS") > best Then 
'right prog closest 
F. Bookmark = marker 
TS = TS * best 

Else 

20 ' left prog closest 

TS = F ( "StartTS" ) 
End If 
End If 

'either way, we found a program 
success = True 
End If 

aDay = aDay - 1: TS = TS - 48 

VJend 

aDay = aDay +1: TS = TS + 48 
If success Then 
30 'make sure to be at the top of a column 

F.FindFirst "StartTS = " & Str(TS) 

If F.NoMatch Then Stop 'how did we get a TS with no program in it? 
TS = F ( -StartTS" ) 
• check if info arrows needed 
F . McveNext 
If Not F.EQF Then 

If F( "StartTS") = TS Then 
infcArrows "down" 

Else 

infoArrows "none" 
40 End I f 

Else 

infoArrows "none " 
End If 

7 . Move Previous 

Case "Next" 

' find next program, same tinte and day 

r .MoveNexc 

If Not F . EOF Then 

'success rr.eans still in same time slot 
50 success = F { "StartTS" ) = TS 
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End If 

* sec arrows 
If success Then 

F . MoveNext 
arrows = "up" 
If Noc F . EOF Then 

If F ( " ScarrTS" ) = TS Then arrows = "both" 
End If 

F . MovePrevicus 
InfoArrows arrows 
End If 
Case "Prior" 

• find previous prograrr;, same time and day 
F . MovePrevious 

If Not F.BOF Then 

'success means scill in same ti.'ne sloe 

success - F("£tartTS") = TS 
End I f 
■ set arrows 
If success Then 
20 F . MovePrevious 

arrows = "down" 

If Not F.BOF Then 

If F ( " StartTS " ) = TS Then arrows ~ "both" 

End If 

F . MoveNext 

infoArrows arrows 
End If 
Case "none" 

'stay at current program, update the arrows (used at startup? 
If :jot F.EOF Then 
30 F . MoveNext 

arrows = "none" 
If Not F.EOF Then 

If F("StartTS") = TS Then arrows = "down" 
End If 

F . MovePrevious 
infoArrows arrows 
End 1 f 
End Select 

If success Then 
40 ' update 

TScurrent = F ( " S tar tT3 " ) 
currDay = aDay 
DispiayProg 

Else 

'restore database position 
fil terData (currDay ). Bookjnark - current 
End If 

' set begin and end time slots for current day 

TSBegin = DateDx f f ( " n" , refDate. (startTime - currDay - 1)) \ 30 
TSEnd = T33egin slotsPerDay - I 

50 ^--^ 
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3-:b DispiayProg ( } 

'set info box wi^h currenn program info and highlight position 
Dim ? As snapshot 
^ Dim r.sg As String 

Sec F = filterData (currDay) 

r.sg = 3tationString(F( -Station" ) 1 & " i Format C F (" Start ") , " h : rrir. A>! / ?X " ; 
msg = msg k " to " & Format { r (" Finish " 1 . "h:mm AK/PM. "} 
7£j msg - msg ^ Format ( F ( "Title ") ) 

rr.sg = msg i Chr(13) & "(episode info here)" Format ( F ('* Episode "! ) 

'note; current database does not contain episode information 
Setlnfo msg, Color ( F ( co lor Field ) Mod 91 
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shpProg ( 0 ). Visible = False 
selector . Visible - False 
Position shp?rog(0), F { " S tarcTS" ) , F ( " FinishTS " ) 
CPlace 0, selector, shpProg(O) 
ShpProg ( 0 ). Visible = True 
selector . Visible = True 
20 =^'d Sub 

Sub Do Preview { ) 

'Construct an appropriate preview message and display 
Dirr. msg As String 

msg = filterData ( currDay I ( "Title" ) 

msg = msg i Chr<13) fie "on " & Stat ionString [ fi IterData ( currDay )('* Stat ion" ) ) & 

m.sg = msg i CategoryString {( filterData (currDay )( "Type" )) , 
■ filterData (currDay) ( "Category" ) } / 
30 -"^sg = msg Sc Chr(13) & DayString (Weekday ( f i 1 terOata I currDay )(" Start ")) , "long") 

msg = msg i " i Format ( filterData ( currDay ) f " Start ") , "mmm d, yy h : mm AM/PM") 
msg = msg Sc Chr(13) & " to " i Format ( fi iterCata ( currDay )(" Finish" ) , "h;mm 

AM/ PM" ) 
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popup . Caption = msg 

SizeAControl popup, ( IblTime ( 1 ) . top + 1.5 * iblTime ( 1 ). Height ) , 12, 
(IblDaydi .Width) , 45 

popup . Visible = True 

inP review = True 
End Sub 

Sub DoSelect ( ) 

' set data for selection and go to TV 

userStation = filterData (currDay Stat ion" ) 

userStart = fil terData ( currDay) ( "Start " ) 

returnCode = TCTV 

Me. Hide 
End Sub 

Sub DrawProg (duplicates As Integer, index As Integer) 

'draw a program shape in display, marJcing it if there are duplicates at the' 
identical time slot 
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'sr.pProg(0} should be at the desired location 
Dirr. above, below, side, wide 
Const GA? = .3 

above = shpProg ( 0 ) . cop 
below =s shpProg ( 0 ). Height 
side = shpProg ( 0 ) . Lef t 
wide = shpProg (0) .Width 

ForeCoior = blacJcCOLOR ' iine ccl-r, thin black: outline 
FillStyle = 0 'solid 
drawwidth = 1 



Select Case duplicates 
Case 0 

'draw the prograr. in the given color 
filiColor = Color (index) 

Line (side, above) -(side * wide, above + below - .5 * GAP), , B 
Case 1 

'draw the prograrr. in grey and mark it 

fillColor = greyCOLOR 'indicate duplicates (which niay be of differen 

colors ) 

Line {side, above) -(side wide, above * below - .5 * GAP) , , E 
'draw icon 
above = above * GAP 
side = side * GAP 
wide = 2 * GAP 
drawwidth ~ 2 

Line (side, above) -(side ^ wide, above wide) 
Line (side, above * wide) - (side wide, above) 

Line (side, above • .5 * wide) -{side + wide, above + ,5 * wide} 
Line {side . 5 * wide, above) -{side + .5 • wide, above + wide) 
Case Else 

'no need to redraw duplicate marks 
End Select 

End Sub 

Sub Fonn_Activace ( ) 

Dim i As Integer ' counter 
Static saveFilter As String 

If saveFilter = userString Then sameFilter = True 
saveFilter = userString 

SetStatus "This Week: " & userString, greyCOLOR 

' i f not same form, erase and redraw the week schedule 
If Not sameFilter Then 
Me.Cls 

Setlnfo "Loading progran informacicn. . . GREY 
shpProg ( 0 ). Visible = False 
selector -Visible - False 
intoArrows "none" 
DcEvents 

50 
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ApplyFii :ier 
MakeDispiay 
sameFiiter = True 
End If 
nd Sub 



ub Forrn^KeyDown (KeyCode As Integer, Shift As Intege 
Dir?. index As Integer 
Di- n As Integer 
Select Case KeyCode 
Case Asc { "Q" ) 

End 
Case 3_3ACK 

returnCode = 3ACK 

Me . Hide 
Case 3_HELP 

sameFilter = True 

Invol-ceHelp 
Case 3_?REVIE:w 

If inPreview Then 

inPreview = False 
popup . Visible - False 

Else 

inPreview = True 

End If 
Case B_RIGHT 

ChangeSel ("Right") 
Case B_LEFT 

ChangeSel ( "Left" ) 
Case B_U? 

ChangeSel ( "Up" ) 
Case 3_DOWN 

ChangeSel ("Down") 
Case B_SELECT 

If Not f ilterData ( currDay ) . EOF Then DoSelect 
Case B_PAGEDOtVN 

ChangeSel ("Next") 
Case 3_PAGEUP 

ChangeSel ( " Prior " ) 
Case B_Fi:-TER 

'go back to frmSelect to choose a new citle 

returnCode = PICK 

Me -Hide 
Case 3_0 

returnCode = SHORTCUT 

Me . Hide 
End Select 
If inPreview Then 

3o Preview 

El se 

popup . Visible = False 
End If 
nd Sub 
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Sue rorx_load ( ) 

2irr> i As Integer 

'sec form colors and fonts 
Me . 3ac:<Color = formCOLOR 
shpProg ( 0 ) . BackColor = BorderColor 
IblDay (0) .BackColor = backgroundCOLOR 
selector . BorderColor = BorderColor 
dayLine ( 0 ). BorderColor = divideCOLOR 
IblTime ( 0) . roreColor = slotCOLOR 
shpSioC ( 0 ). BorderColor = slocCOLOR 
inf oPanel . r on-Size = mediumFONT 
I f displayMode = "TJ" Then 

IblDay(O) .FoncSize = smallFONT 
IblTime ( 0 ) . FoncSize - smallFONT 
popup . Fon- Size = mediumFONT 

Else 

XblDay ( 0 ), FoncSize = largeFONT 
IblTime ( 0 ). FoncSize = largeFONT 
popup . FoncSize = largeFONT 
End If 

'cover up che standard info box 

SizeAForm Me, 0, DispTop + DispKeighc, DispLefc, dispwidch 
■ sec scale and size objects 
NDays = 7 
MSlocs = 48 
dayVJidch = 4 
IblHeighc = 2 
infoHeight = 5 
If displayMode = "TV" Then 
upArrow.LefC = 3950 
downAr row. Left = 8950 
timeHeighc = 2 
downArrow . Cop = 650 
upArrow.cop = 150 

Else 

cimeHeight =1.5 
downArrow , cop = 1525 
End If 

Me. Scale (0, 0)-{N3locs dayWidch, N'Eays * IblHeighc - 2 * cxmeHeighc - 
infoHeight ) 

selector . BorderWidth ~ 1 
'place extended info panel 
SizeAConcrol infoPanel, 0, infoHeight, 0, ( Me . ScaieWidch ) 
inf cPanel . Caption = 
inf oPanel . Visible = True 
'place day labels along side 
45 SizeAContrcl lblDay{0), IblHeighc * infoHeighc, IblHeighc, 0, dayWidch 

For 1 = 1 Tc NDays 
Load IblDayti) 

lblDay(i} .Cape ion = DayScring(i, "shore") 

IblDay(i) .top = ii - 1) ' IblHeighc * infoHeighc * 2 ' cimeHeighc 
lbl3ay{i) .Visible = True 



30 



35 



40 



50 



Next 1 
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'pu- AI-!.''?M label across Cop 

Si::eACon-rol iblOayCO}, infoHeight. zi.-eHeight, dayWidch, NSlots 
iblDay ( 0 ) .Caption = "AM NOON PM" 

^ ibiDay(O) .Visible = True 

'pur "ime labels across top 

SireAControl IblTime(C), i IblDay t 0 ) . He ighc ) + infoHeight, cimeHeight, 
"or i = 1 To NSlots \ 2 
Load lblTim.e(it 

IblTime ( i ) . Capcicn = T::.TteLabei ( Da teAdd < " h " , (i - 1), cakeTODAY}} 
iblTime { i ) . Lef t = 2 * :i. * 2 
lblTime(ii .Visible = True 
Next i 
NProgs = 0 
sameFiiter = False 
InputData 
F o rm_Ac 1 1 va t e 
End Sub 
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Sub infoArro-A's (direct As String) 

'show or hide arrows tn info box indicating presence of more programs at idencica 

t irriG 

Select Case direct 
Case "up" 

dc'AmArrow . visible = False 

upA.rrcw . Visible = True 
Case "dov.Ti" 

upArrcw . Visible - False 

downAr row. Visible = True 
Case "both" 

upArrow . Visible = True 

downAr row . Visible = True 
Case "none" 

UpArrow . Visible = False 

downAr row . Visible = False 
End Select 
End Sub 

Sub InputData i ) 
'part of fonn_load 

"opens the database and creates allData snapshots 

Dir^L D3 As database 

Dirr. Re f Snap As snapshot 

Di.T. i As Integer 

Sec D3 = CpenDatabase (TVXiB ) 

■get reference date and number of stations 
Set RefSnap = DB . Crea teSnapshot ( " Re f erence " ) 
Ref Snap . FmdFirs t "Name = ' Date ' " 
refDate = DateValue ( Re f Snap C '* Data ") ) 
P.ef Snap . FindFirst "Name = "NS tat- ens'" 

Set allData(O) = DB , CreateSnapshct ; " ?r tcra-s " ) 
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szartTime = refDace 
TSSegin = 0 

TSEr.d = rSBegin +48-1 
For i = 1 To 7 

allDaca ( 0 ) - Fil-er = Overlap ( T33egir. - 48 ' ;i - 1), TSEnd - 4c 
Se- ailDaca(i) - al iDaca { 0 ) . CreateSr.apshoc ■ ) 
y,exz i 

Se'L allDaca{C) = Nothing ' r.o longer need daca all ccgeiher 



Sue MakeDi splay ( ) 

■ crea-e schedule display on screen 
3im i As Integer 'counter 
15 l^ir^^ d As Integer 'day 

2;im TSlast As Integer ' last cirr.e slot affected ' 
Zim F As snapshot 'convenience 

I^i.-Ti offset As Integer 'used twice: dayline offset & number of programs sharing a 
cir?.e slot 

20 

'draw horizontal day lines 
drawwidth = 2 

ForeColor = IblDay ( 0 ) . BackColor 
offset = infoHeight * 2 * tineHeight 
For i = 0 To NDays 

25 Line (0. offset + i * IblHeight ) - ( 52 , offset i * IblHeight ) 

Next i 

'place program shapes 

offset = 0 ' <e&p track of how full a particular time slot is 
colorField - "Category" 'note: should this be "Type" instead? 
For d = 1 To MDays 
currDay = d 
TSlast ^ -1 
Set F - f ilterData (d) 
If Not F.iOF Then 
35 F.MoveFirst 

Do While Not F . EOF 

If "( "StartTS" ) = TSlast Then 
offset = offset + 1 
DrawProg offset, -1 

Else 

offset = C 

Position shpProg(O), F ( " S tartTS " ) , F ( " FinishTS " ) 
DrawProg offset. F (colorField) Med 9 
TSlast = F("StartT3") 
End If 

45 F . MoveNext 

Loop 

F . MoveFirst 
End I f 
Mext d 



initialize stuff 



55 



80 




EP 0 735 749 A2 



currDay = * 
v.-r.iie d <= NDays 
^ If f iicerDa-a<d) .EOF Then 

d = d ^ 1 

Else 

NProgs = 1 'just to rrake sure it is .Tvore than 0 
currDay = d 
d = NDays 1 
^0 End If 

Vver.d 

shpProg { 0 ) . ZOrder 
seleczor . ZOrder 

If No- filterData (currDay ). EOF Then 
J5 TScurrent = f i 1 terDaca ( currDay )(" Star tT5 " ) 

Di splayProg 
ChangeSei "none" 
End If 
End Sub 

Sub Position (shape As Control, start, finish) 
'position a program shape 

Dirr. leftTS 

Dim rightTS 

Const smallGA? = . 1 

25 

'convert to time slot scale 

ieftTS = start - 48 ' (currDay - 1) 

rightTS = finish - 48 ' (currDay - 1) 

'set left and width 

shape -Left = dayWidth * leftTS 

shape. Width = rightTS - leftTS + 1 - smallGAP 
'cut off at beginning of day 
If shape. Left < dayWidth Then 

shape. Width = shape. Width - (dayWidth - shape. Left) 
shape. Left = dayWidth 
End If 

' set top and height 
shape. Height = 2 - 2 * smallGAP 
shape. top = IblDay ( currDay ). top + smallGAP 



Sub Set Info (msg As String, Color) 

■ cvemde the global Setlnfc to write to my own info panel 
m f oPanel . BackColor- = Color 
mfoPa.nel . Caption = .nnsg 

45 

= = = = = V.'r'DAV iorrr. code = = = = = = 

Option Explicit 

'schedule cf 5 weekdays at a particular tinie 
'uses ti.-ne-slct guided navigation 

Di-T. al iDa ta ( 3 } As snapshot 'all data within tine period 
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Di.-r. ■ f il -erCaca ( 3 ) As snapshot 'a snapshot for each day in the view 
Di- NDays As Inceger 'number of days in display 

Dirr. N'Slots As Integer 'number of cime slots in display 

C?irr. N'Progs As Integer 'number of programs in display 

Dim NStation As Integer 'number of stations in display 
Dim MaxStation As Integer 'total number of stations in database 
Dirr. colorField As String 'the database field that determines item color 

' (the field should contain an integer) 
Dim inFreview As Integer 'boolean 'true if preview should shew 
Ccnst sideGap = ,05 'space at beginning and end cf prcgram 
Const topGAP = 4 'space btwn time label and first program shape 
Dim refDate 'reference date for data time slots 

Const IblHEIGHT =40 'height of day and time labels (in 500 scale) 

Const MINProgVJidth = .2 'minimum, width of a program, shape as fraction o: 
75 Dim slotsPerDay As Integer "number of slots allowed per day 

Dim currDay As Integer 'number of current cay 

Dim startTime 'start day and time of display 

Dim> TSBegin As Long ' first time slot 

Dim. TSEnd As Long 'last time slot 

Dim. TScurrenc As Long 'current time slot 

Dim: rowOffsec 'distance between (tops of) rows in the schedule 
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Sub ApplyFilter { ) 

'create data set of onpy TV programs that fit into query string fiite: 
25 'set n-omber of stations and database field determining color 

Dim. i As Integer ' counter 

If InStr ( filters (TV) , "Station") Then 
NStation = 10 

'note: need better mechanism for displaying favorite channels 
coiorField - "Type" 
Else 

NStation = MaxStation 
coiorField = **CategorY" 
End If 

35 For i = 1 To NDays 

allData(i) .Filter = filters(T^/) 

Set f ilterData ( i ) - allData ( i ) . CreateSnapshot ( ) 
Next i 
End Sub 

Sub ChangeSei (d As String) 

Dim. current, firstMatch 'as database markers 
Dim success As Integer ' boolean 
Dim s As Integer * station 
Dim TS As Lone ' time slot 
45 Dim F As snapshot 

Dim aDay As Integer 
Dim; best As Integer 

current = f i 1 terData ( cur rDay 1 . Bookmark 
Set F = fi 1 terData ( currDay ) 
s = F{ "Station" I 
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TS = TScurrsnc 
aDay = currDay 
success = False 

If d = "Right" Then 

'check CO iirjr.ediace right, same time slot 

F . MoveNext 

I f Net r . EC? Then 

success = r (*' Station * ) = s And F i " StartTS " ) 



If Ncc success Then 
'check time slots to right 

sh?31ot(T3 - TSBegin * 1 {currDay - 1) * s lo ts PerDay ) . r i i IS ty 1 e = 
1 ' transparent 

y5 lblTime(T3 - TSBegin * 1 * (currDay - 1) * slotsPerDay ) . BackScyie = 

Z ' transparent 

While aDay NDays And Not success 
While TS < TSEnd And Not success 
TS = TS + 1 

* check stations at and below current 

F.FindFirst Overlap (73, TS) Sc "And Station >= " Sc s 

If F.NoMatch Then 

'take the last station above current 

F.FindLast Overlap (TS, TS ) & "And Station < " & s 

success = Not F.NoMatch 

Else 

'save this match and check if stations above are closer 
success = True 
best = F( -Station") - s 
firstMatch = F . Bookmark 
'check previous 

F . FmdPrevious Overlap (TS, TS} 
If F.NoMatch Then 

"no previous match, stick with first match 
F. Bookmark = firstMatch 

Else 

If s - F (" Station'* ) > best Then 
■ first match was closer 
F. Bookmark - firstMatch 
End If 
End If 
End If 

40 Wend 

If Not success Then 

TSBegin = TSBegin * 48 
TSEna - TSBegin • slotsPerDay - 1 
TS = TSBegin - 1 
aDay = aDay 1 
Set F = f il terData ( aDay J 
End If 

Wend 
End If 
Elself d = "Left" Then 
50 'check to i.T^r.ediate left, same time slot 
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F . MovePrevious 

If N'oC F.BOr Then 

success - F("Stacion") = s And •; " Fini shTS " ) = TS 

It Not success Then 

'check previous 'ime slots 

shpSlotiTS - TSBegin ^ 1 (currDay - 1) * slotsPerDay) . rillStyle = 
• transparent 

lbiTimG(TS - TSBegin + 1 - icurrDay - I) * slorsPerDay ) . BackS-y le = 
C ' transparent 

While aDay >= I And Notsuccess 'for each day left 

While TS > TSBegin And Net success ' look for previous slzz this day 
TS = TS - 1 

F.FindFirst Overlap {TS, TS ) it " And Station >= " u Str'sj 
75 If F,NoMatch Then 

'none with station less than current, Icok for first one do'^-n 

F.FindLast Overlap (TS, TS ) 

success = Not F.NoMatch 

Else 

success = True 
'mark this one and check up 
firsCMatch = F. Bookmark 
best = F\ "Station") - s 

F . FindPrevious O-zerlap ( TS . TS)'will be less than current 

Stat ion 

2s F .NoMatch Then 

'none lower, keep first match 
F, Bookmark = first.Match 

Else 

If s - F ( "Station" ) > best Then 
' first match was closer 
F, Bookmark = first>3atch 
End If 
End If 
End If 

v;end 

If Not success Then 'try previous day 

aDay = aDay - 1 
TSBegin = TSBegin - 4 8 
TSEnd = TSBegin + slotsPerDay - 1 
TS = TSEnd + 1 
Set F = f il terData ( aDay } 
End If 

Wend 
End I f 
Elself d = "Down" Then 
' mo V e dc'^Ti w i t h i n t ime slot 
45 'note: shculd we have option to only stop at programs that _begin_ in current 

tine sloe? 

;with exception of first ti.T.e slot in each day, cf ccurse) 
F . sc-okrr.ark = current 

F.Findl^Jexc "(" ^ Overlap (TS. TS) i " And Station <> " Sc Stris) i " ) " 
success = Not r. NoMatch 
^0 El self d = "Up" Then 
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' rr\o ve aown wi. - h m 1 1 me s i c c 

'r.cre: should we have optiicn co only scop at prcgrarr^s ihat _begin_ m C"-rr' 
- irr.e slot:? 

(with exception of first time slot ir. each day, of course} 
r.Booianark = current 

■ F - FindPrevious St Overlap (TS, TS) St " And Station <> " St Str^s; 

success = Not F.NoMatch 
Elself d - "Top" Then 

F.FindFirst Overlap J TS, T5) 
success = Not F.iCoMatch 
Elserf d = "Bottom" Then 

F.FmdLast Overlap {TS, TS) 
success - Mot F. NcMat ch 
End ' f 

If success Then 
' update 

T3 cur rent - TS 
cur r Day = a Day 
Di splayProg 

Else 

• restore position in data 
fi 1 terData ( currDay) - Bookmark = current 
End If 

'restore other stuff 

TSBegin = DateDif f ( "n" , refDate, (startTime + currDay - 1)) \ 30 
TSEnd = TSBegin - slotsPerDay - 1 

shpSlot { TScurrent - TSBegin * 1 + (currDay - 1) • s lotsPerDay ) . Fi 1 13 ty ie = 
C ' sc^id 

IblTime f TScurrent - TSBegin + 1 * (currDay - I) " slotsFerDay ) . 3ackStyle = 

1 ■ opa-q-je 
End Sub 

Sub DisplayProg ( ) 

'highlight location of current program 
'put info for current program in info box 

Dim F As snapshot 

Dim msg As String 

Set F = filterData (currDay)' 
'highlight program 
shpProg ( 0 ). Visible - False 
se lector . Visible = False 

Pcsition shpProgO), F{"Start"), F (" Finish '*) , F { " S ta t ion ) 
CFlace Q, selector, shpProg ( 0 ) 
ShpProg { 0 1 . Visible = True 
selector . Visible = True 

'set message 

msg = StaticnStrmg ( F ( "Station" ; ) i " - " i F( "Title" k " " 
nr.sg - msg St Forma t ( F (" S tar t ") , "h:mm AM/PM") 
msg ^ msg i " to " Sc Format ( F {" Finish*' ) , "h:mm. AM/PM" ! 
■ Setlnfo m.sg. Color ( F ( colorField } Mod 9) 
End S'^rD 
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Sue 3-0 Preview { ) 
Conscrucr an appropriate preview message and display 
^ wir: msg As String 

"sg ~ "Scacicn: " i StacionString ( f ilcerData (currDayl ( " Staiion" ) ) 
-sg = rr.sg Sc Chr(13) & "Title: " & f ilcerDaca (currDay) ; "Tide" ^ i Chr'::3: 
r.sg = r.sg i CategoryS::ring M f il terDaca ( currDay ) f "Type " ) ) . 
; filter Data ( cur r Day ! •! "Category" ) ) ) 
10 ~,sg - rr.sg i Chr(13) ^ "Time: " & "onr.at ( f i 1 terData ( currr:ay ) ( " S tart " ! . 'rrir- d.w 

h:~ .^W/PM" } 

msg = msg St Chr:i3) « " to " St Format ( f i 1 terData ; cur rCay )(*■ Fi.tish , •'h:mir. 

AM ■' ? M " ) 
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' show popup with preview message 
popup . Cap t ion = msg 

popup. Top = IblTime ( 1) .Top + 2 * IblTim.e ( 1) . Height 
popup .Left = 2 

popup. Width = slotsPerDay ' NDays - 3 
popup . Visible = True 
inPreview = True 
End Sub 

Sub DoSelect { ) 

'set data for selection and go to TV 

userStation = f ilterData ( currDay) (" Stat ion" ) 
userStart = fil terData < currDay )(" Start " ) 
returnCode = TOTV 
Me . Hide 

End Sub 



Sub Forr:T_Activate {) , 
Dim i As Integer 'counter 
Static saveFilter As String 

If saveFilter = f il ters ( currDomain) Then sameFilter = True 
saveFilter ~ filters (currDomain) 

SetStatus "Evening TV: " & currFi 1 ter ( TV) , greyCOLOR 
'note: "Evening TV" label would be variable 
I f inPreview Then 

popup .Visible = False 
inPreview = False 
■^0 End If 

If newUser Then 

popup . Caption = "Press 'category' to change the Icind of programs dipiayed. 
popup . Vis ible = True 

' note : ought to make popup go away on timer as well as button press 
newUser - False 
End If 

If saneFilter Then 

'restore darkened time-slot 
If TScurrent > 0 Then 

50 
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shpSloc ( recurrent: - TSBecin - I * (currDay - 1) ' slotsPerDay > . FillSCyie 
IblTime (TScurrent - TSBegir. - 1 * (currDay - 1) * slotsPerDay i . BackS tyie 

5 = solid 

Ena I r 

Else 

"unload old program shapes and redo display 
SezZnfo "Loading program information-..". GREY 
shpProg ( C }. Visible = False 
10 IblDay(C) .Visible - False 

IblTime (0; .Visible = False 
shpSlot ( 0 ). Visible = False 
selector . Visible = False 
For i = 1 To Frogs 

Unload shpProg(i) 
\'exr i 
ApplyFi leer 
MakeDisplay 
sa.TieFilter = True 
End If 
20 End Sub 

Sub Fcrrp._KeyDown {KeyCode As Integer, Shifc As Integer) 

'noce: always turn off the black slot before leaving, so it doesn't mess up 
later views 

Di.T. Index As Integer 
Dirr. n As Integer 
Select Case KeyCode 
Case Asc i-Q" ) 

End 
Case 3_SACK 

shpSlot (TScurrent - TSBegin - 1 (currDay - i; * slotsPerDay ) . FillStyle = 
1 ' transparent 

IblTime (TScurrent - TSBegin - 1 (currDay - 1) * slotsPerDay BackStyle = 
0 • transparent 

returnCode = SACK 
Me. Hide 
Case 3_HEL? 

sameFilter = True 
InvokeHelp 
Case B_PREVrEVJ 

If mPreview Then 
40 popup . Visible = False 

inPreview = False 

Else 

inPreview = True 
End If 
Case 9_RIGHT 

If N'ot fil terData ( currDay 1 . EOF Then ChangeSel {"Right") 
Case a_LEFT 

Zi N'ot filterData (currDay) . EOF Then ChangeSel ("Left") 
Case 5_UP 

If Not filterDaca (currDay) . EOF Then ChangeSel ("Up") 
50 Case B_DOWN 
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If Not f ilterDaca i currDay) . EOF Ther. ChangeSel (-Dcvst-.") 
Case 3_SEL£CT 

shpSloc (TScurrenc - TSBegm * 1 * '. currDay - I) ' slo::sPerDay ) . r 1 15 -y le 
1 ' transparent 

IblTime (TScurrent - TSBegin i (currDay - 1) * siocsPerDay ) . Bacy.5cy le 
0 ' transparent 

If Not filterData (currDay) . EOF Then DoSelect 
Case 3_?AGEDOWN 

If Not filterData (currDay) . EOF Then ChangeSel ("Bottc-") 
10 Case B_?AGEU? 

If Not filterData (currDay) - EOF Then ChangeSel ('Top"} 
Case B_FILTER 

shpSlot (TScurrent - TSBegin + 1 - (currDay - 1) * slotsPerDay ' . F i 1 13 ty le 
1 ' transparent 

IblTime (TScurrent - TSBegin + 1 ^ (currDay - 1) * slotsPerDay) .Bac^Style 
C ' transparent 

recurnCode = Filter 
Me . Hide 
Case B_0 

shpSlot (TScurrent - TSBegin * 1 + (currDay - 1) * slotsPerDay ). FillStyle 
20 1 ' transparent 

IblTime (TScurrent - TSBegin * 1 * (currDay - 1; * slotsPerDay ). Bacr.Style 
0 ' transparent 

returnCode = SHORTCUT 
Me . Hide 
End Select 

25 

It mPreview Then 
DoPreview 

Else 

popup . Visible = False 
End If 
30 End Sub 

Sub Form_Load ( ) 

Dim d As Integer, i As Integer, n As Integer 'counters 

Dim t 'as time 

'set form colors and fonts 

35 

Me.BackColor * formCOLOR 
shpProg ( 0 ) . Bac)cColor = BorderColor 
iblDay (0) . Bacl^Color = backgrcundCOLOR 
selector . BorderColor = BorderColor 
dayLine ( 0 ). BorderColor = divideCOLOR 
40 IblTime ( C ). ForeColor = slotCOLOR 

shpSlot ( C }. BorderColor = slotCOLOR 
If displayMode = "TV" Then 

IbiDay ( G ) . FontSize - smallFOKT 

IblTime ( 0 ). FontSize- = smallFONT 

popup : FontSize = mediumFONT 

El se 

IbiDay ( 0 ). FontSize = largeFONT 
IblTime ( 0 ). FontSize = largeFONT 
popup . FontSize = largeFONT 
End If 

50 set scale and size objects 
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Si^eAForrr. Me, DispTop, DispKeighc, DispLefc, DispWidth 
Me. Scale ;0, 0)-(500. 50G) 

S-zeAControi IblDay(O), 0, IblHEIGHT, 0. 5G0 

SizeACcntrol IblTiine ( 0 ) . IblKEIGHT, IbiHEIGHT, 0, 50 
^ SizeAConcrol shpSloc(O). 2 * IblHEIGHT - .5 * copGAP, 500 - 2 * IblHEIGHT, 0, 50 

SizeAControl popup, 250. 200, 250, 200 

selector . BorderWidth = 1 

cayLir-e(O) . VI = 0 

dayL:.ne(C i . Y2 = 500 
70 'init variables 

sarrier ilter = False 

same View = False 

inPreview = False 

N Progs = 0 

NDays = 5 * five wee"< days 

slorsPerDay = 6 'three hours, 6 half -hour sloes 
NSlots = NDays * slotsPerDay 

scarrTime = fakeToday * CVDate("7:0G PM" ) 'time would be variable and se' at 
ac::ivare 

s-arcTime = DateAdd{"d". 2 - Weekday ; scar tTime ) . startTime) 'set scartTime to 
20 Monday {=2} 

'ser -ime slot scale and place -he perz-.anent objects 
Me . ScaleWidth = NSlots 
lblTime<0) .Width = 1 
shpSlot ( 0 ) .Width = 1 
For i = 1 To NDays 

'place and caption day labels 
Load lblDay{i) 

SizeAControl lblDay{i), 0, IblHEIGHT, slotsPerDay * (i - 1). slotsPerDay 
IblDay I i ). Caption = DayString(i + 1, "short") 
IblDay ( i ) .Visible = True 
30 N'ext i 

For d = 1 To NDays 

For 1 = 1 To slotsPerDay 

n = (d - 1) • slotsPerDay + i 
'place time slot dividers 
Load shpSlot(n) 

shpSlot (n) .Move n - 1 - 
shpSlot(n) .ZOrder 
ShpSlot (n) .Visible = True 
' place time labels 
Load lblTime(nl 
40 IblTime (n} .Move n - 1 

IblTime(n) . SOrder 

t = DateAdd { "n" , 30 * (i - 1), startTime) 
iblTimetn) .Caption = TimeLabel ( t ) 

'tiTie captions would be set at activate since they could change <when 
s arr.e V i ew false) 

ShpSlot ( i ). FillStyle = 1 ' t ransparent 
IblTime ( i ). BackStyie = 0 ' transparent 
IblTime (n) . Visible = True 
Next i 

'place day separators, but don't show yet 
50 Zz d < MDays Then 
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Load dayLine(d) 

dayLine(d) .XI = d * slotsPerDay 
dayLine (d) . X2 = d ♦ slotsPerDay 
End If 
Mext: d 
Inpu::Data 
?orm_Ac t: 1 va t e 
same View = True 
£r.d Sub 

Sub ZnputiDaca ( ) 
■parr o£ form^load 

' or>er\s the database ar.d creates aiiDaca snapshots 

Dim DB As database 

Dim Re: Snap As snapshot 

Dim i As Integer 

Set DB = OpenDatabase { TVDB ) 

'assumes data already sorted by station, start 

'get reference date and nuinber of stations 
Set RefSnap ~ DB . CreateSnapshot (" Reference " ) 
Ref Snap . FindFirst ''Nair.e = 'Date'" 
refDate = DateValue ( Ref Snap ("Data ") ) 
Ref Snap . FindFirst "Nair.e = ' NStations ' " 
MaxStation * Val ( Ref Snap (" Data" ) ) 

Set allDataiC) = DB . CreateSnapshot (" Programs " ) 

'create snapshots of all programs for each weekday at fixed time 

time would be variable and these wculd have to be created at activate 
T53egin = DateDi f f ( " n" . refDate, startTime) \ 30 
TSEnd = TSBegin ^ slotsPerDay - 1 
"or i = 1 To 5 

allData{0) .Filter = Overlap ( TSBegin + 43 * (i - i), TSEnd - 48 * ;i - i;^ 
' 4S time slots/day 

Set allData(i) = allData ( G ) . CreateSnapshot U 
Next i 

Set allData(O) = Nothing 'won't be needing everything since time is fixed 
End Sub 

Sub Ma keDi splay ( ) 

'create the visual schedule of programs • from the filtered data 
Dim d As Integer 'day 
Dim z As Integer 'counter 
Dim F As snapshot 'convenience 

Dim hasFrogs As Integer 'remember the first day that has programs in it 

"set times showing 
: 5 Mot s am G V i e w Then 

'would change time labels here 
End I f 
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'place program shapes 
has Progs = 0 

c = 0 ' init count of shpProgs 

On Error GoTo ErrorHandler 'if we run out of shpProgs to allocate 
Tor d = 1 To NDays 
currDay = d 
Set F = f ilterData (d) 

'create a shape control for each TV program m the data 
: : Not r . EOF Then 
F . MoveFirs t 
Do. While Not F . EOF 

Load shpProg(c ■** 1) 

c = c + 1 ' increment only after allocate succeeds 
shpProg (c ) . BackCoior = Color ( F { colorField) Mod 9) 
15 Position shpProg(c), F Start ") , F ('* Finish ") , F ('* Stat ion " ) 

shpProg(c) . ZOrder 
shpProg (c 1 . Visible = True 
F . MoveNext 

Loop 



10 



20 



F . MoveFirst 

If hasProgs = 0 Then hasProgs = d 'remember the first day with progreuns 



End If 
>Jext d 
McveCn : 

25 Cn Error GoTo 0 'quit trapping errors internally 

'make day lines visible on top 
For d = 1 To NDays - 1 
dayLine(d) .ZOrder 
dayLine (d) . Visible = True 
Next d 

30 

'initialize stuff 
NProgs = c 
currDay = has Progs 
shpProg (0) .ZOrder 
25 selector . ZOrder 

If currDay > C Then 

'set time slot begin and end niiinbers for current day 

TSBegin = DateDif f t "n" . refDate. startTime) \ 30 ^ 48 * (currDay - 1} 
TSEnd = TSBegin ^ slocsPerDay - 1 
TScurrent = TSBegin 
Set ? = f ilterData { currDay) 
Do While TScurrent <= TSEnd 

F-FindFirst Over lap ( TScurrent . TScurrent) 
If Mot F.NoMatch Then 
DisplayProg 
Exit Do 
End If 

TScurrent = TScurrent + 1 

Loop 

Else 

TSaegin - Da teDi f f ( " n " , refDate. startTime) \ 30 
TSEr.d = TSBegin ♦ siotsPerDay - 1 
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TScurrent = TSBegin 
currOay = 1 
End If 

shpSlot (TScurrer.t - TSBegin ^ 1 * (currDay - 1) * slotsPerDay ) . Fi.lStyle = 
C • solid 

IblTime (TScurrent - TSBegin 1 (currDay - 1} * slocsPerDay) .SackStyle = 
1 ' opaque 

Zxiz Sub 

ErrorHandler : 

If Err = 3 42 Then 

'ran out- of room to allocate program shapes, qr-it drawing 
Resume MoveOn 

Else 

Dim msg 

msg = Error Sc Chr(13) U "Resuire or Cancel?'* 
msg = InputBox (msg, -Error Ccrrecrion"' . "Resume") 
le msg = Then Stop 
Resume MoveOn 
End If 
End Sub 

Sub Position (shape As Control, start, finish, stations 
•position a program shape for display 

Dir?. relatively, relativeW, dayStart 

Dim edge 

•convert a day/ time to position in NSlot scale 

dayStart = scartTime currDay - 1 

relativeL = (start - dayStart) * 48 

relat:.veW = (finish - dayStart) • 48 - relativeL 

'clip shapes off at day boundaries 

If relativeL < 0 Then 

relativeW = relativeW relativeL 

relativeL = 0 
End If 

If relativeW + relativeL > slotsPerDay Then relativeW = slotsPerDay - relativeL 

'set left and width of shape 

edge .= {currDay - 1) • slotsPerDay 

shape. Left = relativeL * edge + sideGap 

shape -Width = relativeW - 2 * sideGap 

■enforce minimiim width so program is visible 

If shape. Width < MINProgWidch Then shape. Width = MINProgWidth 
' set top according to station 

'note: this scheme only works because stations are named l-.n 
rc'A-Offset = ((500 - 2 * IblKEIGHT - shpProg ( C ). Height ) / NStation) 
shape . Top = shpSlot ( 0 ) . Top + topGAP + (station - 1) * rowOffset 
End Sub 



Thus, it will now be understood that there has been disclosed a method and apparatus of finding and selecting a 
program to view from a large schedule of TV programs. While the invention has been particularly illustrated and de- 
scribed with reference to preferred embodiments thereof, it will be understood by those skilled in the art that various 
changes in form, details, and applications may be made therein. For example, color coding of the individual items of 
the reduced representations and of the various entries in the various grid displays could be used to assist the viewer 
in making rapid program selections. Another example is that it is easily within the capabilities of this art to modify a TV 
set by integrating the set top box according to the present invention into it. It is accordingly intended that the appended 
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claims shall cover all such changes in fornn, details and applications which do not depart from the true spirit and scope 
of the invention. 



Claims 
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Apparatus for selecting an item from a group thereof in a system having display means and interactive movable 
pointing means for specifying a location in the display means and making a selection at a specified location, the 
apparatus comprising: 

filtration means including subgroup specifiers in the display means and responsive to selection of a subgroup 
specifier by the pointing means for filtering the group to produce the subgroup specified by the selected sub- 
group specifier; 

means for displaying representations of group items belonging to at least a portion of the subgroup in the 
display means; and 

group item selection means for selecting a group item by selecting the representation thereof in the display 
in response to the pointing means. 

The apparatus set forth in claim 1 wherein: 

the pointing means need only be movable from one representation to an adjacent representation. 

The apparatus set forth in claim 1 wherein: 

the means for displaying the representations comprises: 

first means for displaying the representations in a single dimension; and 

second means for displaying the representations in two dimensions. 

The apparatus set forth in claim 1 further comprising: 

means for displaying a reduced representation of the entire subgroup and an indication in the reduced rep- 
resentation of the portion of the group being presently displayed by the display means. 

The apparatus set forth in claim 4 wherein said reduced representation is two dimensional. 

The apparatus set forth in claim 5, wherein said interactive movable pointing means includes a remote control 
having: 

a first pair of buttons to control changes in location in the display in a first direction; and 
a second pair of buttons to control changes in location in the display in a second direction. 

The apparatus set forth in claim 4 wherein said reduced representation is a two dimensional representation of a 
three dimensional representation, the third dimension being location within a logical stack of items having at least 
one common property. 

The apparatus set forth in claim 7 wherein each item of a logical stack have viewing timeslot as one common 
property. 

A method comprising the steps of: 

receiving program schedule data by a set top box via a same information conductor that conducts program 
information to the set top box; 

filtering said program schedule data in RAM within said set top box; 

said set top box showing a first interactive display on a TV connected thereto presenting a plurality of choices 
for filtering said program schedule data to a viewer; 

in response to an interactive selection by said viewer, filtering said program schedule data into a first subgroup 
of program schedule data; 

also in response to an interactive selection by said viewer, said set top box showing a second interactive 

display on said TV having a second plurality of choices for filtering said program schedule data; 

in response to a second interactive selection by said viewer, filtering said first subgroup into a second subgroup; 
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and 

also in response to a second interactive selection by said viewer, said set top box showing a third interactive 
display on said TV having a representation of each program item of said second subgroup. 

5 10. The method of claim 9, wherein said receiving program schedule data step further comprises the steps of 

receiving a first portion of said program schedule data via said set top box; and 
receiving a second portion of said program schedule data at a later non-contiguous time. 

10 11. The method of claim 9, further comprising the step of: 

in response to an interactive highlighting of a representation of a program item of said second subgroup, 
displaying a title thereof. 

12. The method of claim 11, further comprising the step of; 

in response to an actuation of a select button of a remote control, displaying a preview of said highlighted 
program. 

13. The method of claim 12, further comprising the step of: 

in response to a second actuation of said select button of said remote control, switching said set top box to 
20 display a TV program corresponding to said highlighted representation. 

14. The method of claim 1 2, further comprising the step of: 

in response to a second actuation of said select button of said remote control, storing a command to switch 
said set top box to display a TV program corresponding to said highlighted representation in when that TV program 
25 begins. 

15. A method comprising the steps of: 

receiving program schedule data for at least 300 individual channels for a time penod of at least a week; 
storing said program schedule data in local memory for rapid sorting and retrieval in a database format; 
filtering the program schedule data in response to interactive user inputs into a subgroup of the program 
schedule data; 

displaying the subgroup of the program schedule data for the user's review; and 

interactively selecting a program from the subgroup of program schedule data for viewing on a TV screen. 

35 

16. A method for choosing a desired program from a large schedule of programs whose data is stored in a local 
memory, comprising the steps of: 

displaying a vertically cascaded group of cards with each card representing a program of a particular time and 
"^0 channel; 

displaying a selection window located around a subgroup of said group of cards; 

displaying a two-dimensional grid adjacent to said vertically cascaded group of cards in which said subgroup 
of the programs represented by said vertically cascaded group of cards are shown in greater detail; 
displaying a first active area within said selection window highlighting one of said subgroup of programs; 
displaying a second active area within said two-dimensional grid, said second active area being located around 
and highlighting greater details of the program highlighted in said first active area; 

moving said first active area in a vertical direction in response to vertical direction arrows to a viewer's input 
of a remote control; and 

selecting a desired program by moving said active area to said desired program and actuating a select button 
50 until said set top box makes said selection. 

17. The method according to claim 16, further comprising the steps of 

after said active area is moved one location outside of said selection window by inputs from said viewer, 
moving said selection window to a contiguous subgroup to which said active area has moved. 

55 

18. Apparatus for selecting an item from a group thereof in a system having display means and interactive movable 
pointing means for specifying a location in the display means and making a selection at a specified location, the 
apparatus comprising: 
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filtration means including subgroup specifiers in the display means and responsive to selection of a subgroup 
specifier by the pointing means for filtering the group to produce the subgroup specified by the selected sub- 
group specifier; 

means for displaying representations of group items belonging to the subgroup in the display means: 
5 group item selection means for selecting a group item by selecting the representation thereof in the display 

in response to the pointing means; and 

means for displaying a reduced representation of the entire subgroup and an indication in the reduced repre- 
sentation of the portion of the group being presently displayed by the display means; 

said reduced representation displaying means displaying a two dimensional representation of a three dimen- 
sional representation, a third dimension being represented as a logical stack of items having at least one 
common property. 

19. The apparatus set forth in claim 8 or 1 8, wherein said interactive movable pointing means includes a remote control 
having: 

15 

a first pair of buttons to control changes in location in the display In a first direction; and 

a second pair of buttons to control changes in location in the display in a second direction; and 

a third pair of buttons to control changes in location within the logical stack. 

20 
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FIG. 5 
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